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3 COPY LOG7805 ** MAP FC HISTORY ** 002500 264E 198 DC A(ENTPT POINT TO MAP ENTRY POINT TABLE 
MTEC CoCL SSC SSCS SSCS TL OSCC£ SSL OCS CST CCT TSS eT ete rer T TSS LCS STS TL et eS tt SS s VQ HM HM Me eH He He Be a HR I HH RH HR HH HH KH He 
5 x x ZOO HH MH HK Me he Hee He Hee Me He He He Me He He He He He Hoe He He He Me HK Me eee He she He He Be He whe Me Me He he He He He Me He Me He He He He He He Me ee Fee He Me ee he oe ae Se he Hee 
6 * # PREREQUISITES kK * 201 ** *% 
7 * * 202 ** THE FOLLOWING TABLES ARE USED BY THE MDI SUPERVISOR (D3C00) *& 
8 x NONE * 203 ** TO LOCATE THE CORRECT RULE TO INVOKE, TO OBTAIN THE PROPER te 
9 * * 204 ** PARAMETERS TO PASS TO THE TU*S AND TO PASS TO THE OPERATOR me 
10 383 OR i kok ao a rag GR OR OR aia fea a kek ak oi ake tk ake ak te ke oe cfc ake ke kei ae ak ce oe fc oe ak kak 205 ** THE INDICATED MESSAGE (S) - THERE ARE FOUR TABLES USED FOR THIS % 
11 * * 206 ** PURPOSE THEY ARF: % % 
12 * KK MODIFTCATIONS HOR * 207 ** *% 
13 * * 208 ** STEP AND RULE ADDRESS TABLE * 
14 * NONE * 209 ** THIS TABLE GIVES THE ADDRESS OF THE RULE TO INVOKE AND ee 
15 * * 210 ** THE ASSOCIATED STEP DECIMAL STEP NOMBER OF THAT ROLE. *% 
YG RH OR ea a Re a fe oe eR a aR a ae of a aca af fe a fe 2 i he fe ate a ae ae Re ae 2 a a ee eae af ak a aka oi eo ae ae fe ae ae ae a a oe 211 ** ENTRIES ARE AS FOLLOWES ex 
+e ae B) MeNorep au@een En" peerga STA? MBP : 
* eK REA'S YNCORPORATED CK * 
19 * * 214 ** EC AN EQUATE FOR THE STEP NUMBER  & 
20 * NONE * 215 ** $e 
21 * * 216 ** RULE INFORMATION TABLE ek 
22 aOR oko ak ek gkko a kk a kk RRR RG Rak ke ike oe a a ica 2 ke ee ek a ake oie fea afc ae ae oe as ake abe ae af age a aft 217 ** THIS TABLE CONTAINES THE REQUIRED INFORMATION TO EXECOTE aK 
23 * * 218 ** THE APPROPRIATE RULE ONDER ADI. EACH RULE HAS ITS OWN # 
24 * kk SPECIAL INSTRUCTIONS ee x 219 ** UNIQUELY DEFINED AREA INDICATED BELOW. END OF TABLE IS % 
25 * * 220 ** INDICATED WITH A X*0000* FOR THE RULE EQUATE. * 
26 * NONE * 221 ** * 
27 * * 222 ** SQUES *& 
DB HH He He i he he A oe Ae he he he he cate ee ae ae he he ae hk het he a cafe ae eK ate he ee hc ae che a ee ae a he a he he ie he he ee hc ae a a ic oe fe hc ai ae eo 2c 2c 223 ** A RULE EQUATE x*0100! Z eK 
29 * * 224 ** B) ADDRESS OF THE YES LEG RULE 
30 * CK E. C. HISTORY | RK * 225 ** te 
31 * * 226 ** $FIXT 1 
32 * DATE O1MAR78 DATE OYSEP78 DATE DATE * 227 ** B} RULE EQUATE X'0101' % % 
a2 : E.C. 755285 E.C. 374888 EC. EC. : 228 bie B) ADDRESS OF MESSAGE TO PRINT aps 
35 ea rk eK eo ok a I RIOR ROR IRI RIO RR I RR RO RC ak RR ia oie a a ac a ae oc 230 ** $STOP ee 
002500 37 17805 START X'2500' START ADDRESS OF ALL 'I* TYPE PROG 231 ** B} RULE EQUATE x*0102? 4 
000100 38 @QUES FOU X'0100° EQUATED VALUE FOR MDI STATEMENT 232 ** . B) ADDRESS OF MESSAGE ee 
000101 39 @FIXT EQU X¥"0101' FOUATED VALUE FOR MDT STATEMENT 233 ** * 
000102 40 @STOP EQU x*'0102'° EQUATED VALUE FOR MDI STATEMENT 234 ** $GOTO ie 
000200 41 @GOTO EQU  xX'Q200! EQUATED VALUE FOR MDI STATEMENT 235 ** A) RULE EQUATE X*0200! ** 
000201 42 @CALL EQU X'0201' EQUATED VALUE FOR MDI STATEMENT 236 ** B) ADDRESS OF HESSAGE # % 
000300 43 @INPT EQU X'0300! EQUATED VALUE FOR MDI STATEMENT 237 ** C) NAME OF MAP TO GO TO % ak 
000400 44 @QUXX EQU x'0400! EQUATED VALUF FOR MDI STATEMENT 238 ** D) ENTRY POINT WITHIN GO TO MAP TO USE % 
000500 45 @aTUXX FOU x*0500! EOUATED VALUE FOR MDI STATEMENT 239 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE a 
000600 46 @NVLD FOU x'0600' FOUATED VALUE FOR MDI STATEMENT 244 ** *x 
000000 4u7 FOU x' 0000! FOUATE FOR FQUAL 242 ** $CALL * & 
000004 48 NE EOU X'O004! FOUATE FOR NOT EQUAL 243 ** A) RULE EQUATE X*0201' % x 
000008 49 HI EOU x*'0008! FOUATE FOR HIGH 244 ** B) ADDRESS OF MESSAGE 4k 
O0000C 50 NH EOU x'oooc' EQUATE FOR NOT HIGH 245 xx C) NAME OF MAP TO CALL * x 
000010 51 Lo EOU X'0010! FOUATE FOR LOW 246 ** D) ENTRY POINT WITHIN CALLED MAP TO USE # 
000014 52 NL EQU X'OO14? FOUATE FOR NOT LOW 2H] ** E}) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE 4k 
000010 53 LT EOU X*0010! FOQUATE FOR LESS THAN 248 ** * 
00000C 54 LE EOU x'oooc? EOUATE FOR LESS THAN OR EQUAL TO 249 ** $INPT 4 
000008 55 GT FOU x'oo0d8s' EQUATE FOR GREATER THAN 250 ** A) RULE EQUATE X*0300! ** 
000014 56 GE EQU x'o014! FQUATE FOR GREATER THAN OR EQUAL TO 251 ** B) INPUT one ET eucrte or OR_ HEX) ** 
000200 57 ON EOU x¥*0200! FOUATE FOR ON 252 *%* C) ADDRESS ES LEG RULE * 
000202 58 OF EQU X'0202' EQUATE FOR OFF 253 ** D DES PTHRTTON LochTton OF INPUT DATA # 
000204 59 EQU X'O2048 EQUATE FOR MIXED 254 ** E) LENGTH OF INPUT DATA * * 
000000 60 EBC EQU x*0000! FOUATE FOR EBCDIC DATA TRANSFER 255 ** F) LOWER LIMIT OF GOOD DATA * 
000001 61 HEX EOU Xx'0001! EFOUATE FOR HEX DATA TRANSFER 256 ** G) HIGHER LIMIT OF GOOD DATA * 
000001 62 XTRNL FOU Xx'0001' FOUATE FOR EXTERNAL REFERENCE 257 ** # 
000000 63 INTRNL EQU  x'0000! EQUATE FOR INTERNAL REFERENCE 258 ** $QUXX * 
000000 6% PARM EOQU x'0000! EQUATE INDICATING PARAMETER 259 ** A) RULE EQUATE X*0400! %*% 
000001 65 DA EQU X'0001! FOUATE FOP DEVICE ADDRESS 260 ** B) ADDRESS OF YES LEG RULE * 
000002 66 EOU X'0002! EQUATE FOR UNIT ADDRESS 261 ** C) TU BRANCH TO ADDRESS (INITIAL 2 
000000 67 DUMMY FOU xX'0000! DUMMY EQUATE 262 ** D) TU BRANCH TO ADDRESS (SECONDARY) ** 
001800 69 PID QU *-X'OD00! ADDRESS OF MDI HEADER 263 ** E) LENGTH OF PARAMETER IN BYTES * * 
000232 70 PTYPE EQU *-X'2ICE! ADDRESS OF PROCESSOR TYPE FIELD 264 ** F) PARAMETER TO PASS TO «x 
00180C 71 STEPNUM EQU PID+x'000C! ADDRESS OF DECIMAL STEP NUMBER 265 ** G) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER * 
00180E 72 OPWD1 EOU PID+tX'OOOF! ADDRESS OF OPTION WORD ONE 266 ** x 
001810 73 OPWD2 EQU PID+X'0010! ADDRESS OF OPTION WORD TWO 267 ** STUXX led 
001818 74 TUSTATUS EOU PIT D+xX'0018! ADDRESS OF TU STATUS WORD 268 ** A) RULE EQUATE X'0500! ** 
00181A 75 TUWORK EQU PID+x'OO1A! ADDRESS OF TU WORK AREA 269 ** B) ADDRESS OF YES LEG RULE ke 
OO189A 76 TUPARM1 EOU PID+X*OO9A! ADDRESS OF PARM 1 POINTER 270 ** C) TU BRANCH TO ADDRESS * x 
00189C 77 TUPARM2 EQU PTD+x*O09C!8 ADDRESS OF PARM 2 POINTER 271 ** D) TYPE OF COMPARE TO MAKE ON RESULTS alas 
00189F 78 TUPARM3 EQU PID+X'OO9F' ADDRESS OF PARM 3 POINTER 272 ** E) LENGTH OF COMPARED RESULTS * 
0018A0 79 TUPARMY EOU PID+X'OOAOt ADDRESS OF PARM 4 POINTER 273 ** F) MASK FIELD FOR COMPARE fe 
0018A2 80 TUPARMS EOU PID+X"OOA2! ADDRESS OF PARM 5 POINTER 274 *% G) LENGTH OF PARAMETER IN BYTES * % 
OO18A4 81 TUPARH6 EOU PID+xX'QOAY! ADDRESS OF PARM 6 POINTER 275 ** H) PARAMETER TO PASS TO THE TU * 
0018A6 82 TUPARM7 EQU PID+X'OOAG ADDRESS OF PARM 7 POINTER 276 ** T) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER ef 
0018A8 83 TUPARM8 EOU PID+X'OOAB? ADDRESS OF PARM 8 POINTER 277 ** 1K 
OO18AA 84 TUPARMO EQU PID+X'OOAA! ADDRESS OF PARM 9 POINTER 278 ** $NVLD ke 
0018AC 85 TUPARM10 EOU PID+xX'OOAC! ADDRESS OF PARM 10 POINTER 279 ** A) RULE EQUATE X‘'0600! * 
OO18AE 86 TUPARM11 EQU PID+X'OOAF! ADDRESS OF PARM 11 POINTER 281 ** * x 
0018B0 87 TUPARM12 EQU PID+tX"OOBO! ADDRESS OF PARM 12 POINTER 282 ** ENTRY POINT TABLE % x 
0018B2 88 TUPARM13 EQU PID+X*O00B2" ADDRESS OF PARM 13 POINTER 283 ** THIS TABLE CONTAINS THE ENTRY POINTS WITHIN THE MAP THAT * 
0018B4 89 TUPARM14 EOQU PID+xX"'OOBUE ADDRESS OF PARM 14 POINTER 284 ** THE MAP CAN BE ENTERED FROM THESE ENTRY POINTS ARE ** 
0018B6 90 TUPARM15 EQU PID+X*OOBE! ADDRESS OF PARM 15 POINTER 285 ** REFERENCED BY NAME AND ADDRESS. ENTRIES ARE AS FOLLOWES: * x 
0018B8 91 TUPARM16 FOU PID+tX*'OOB8! ADDRESS OF PARM 16 POINTER 286 ** * 
OO18BA 92 TUMSGWTR EQU PID+X"OOBA® ADDRESS OF -> TO COMMON MSS WRITER 287 ** A) NAME OF ENTRY POINT * x 
OO18BE 93 TOUUA FOU PID+tX'OOBE' ADDRESS OF UNIT ADDRESS IN EBC 288 ** B) ADDRESS OF ENTRY POINT RULE TABLE * 
001718C0 94 TUDA EQU PID+x'OO0CO8 ADDRESS OF DEVICE ADDRESS IN EBC 289 ** x 
0018C2 95 TUBUFF EQU PID+xX*00C2! ADDRESS OF LAST USED WORD IN MAP 290 ** THE ENTRY POINT TABLE END IS INDICATED BY A x*00008 * k 
0018C4 96 TULAST EOU PTID+x'O0cCut ADDRESS OF LAST ADDRESSABLE WORD 291 ** 1k 
0018C6 97 TURESULN EOU PID+x'O00C6! ADDRESS OF LENGTH OF TU RESULTS 292 ** MESSAGE TABLE te 
0018C8 98 TURESUL EOQU PID+xX*'00C8! ADDRESS OF TU RESULTS FIELD 293 ** THIS TABLE CONTAINES THE MESSAGE PASSED TO THE OPERATOR 40% 
OO18FC 99 MAPNAME FEQU PID+X*OOFC! ADDRESS OF MAP NAME FIELD IN HEX 294 ** VIA THE MDI SUPERVISOR. THE TABLE IS AS FOLLOWES: * x 
001948 100 TUINPT EQU PID+txX'0148! ADDRFSS OF $INPT DATA 295 ** * 
00196E 101 PARMARA EQU PIDtX'O16E! ADDRESS OF $INPT INPUT AREA 296 ** A) EQUATE FOR START OF MESSAGE BLOCK me ae 
0019B8 102 @DCADD1 EQU PID+X'01B8! MDI POINTER 297 ** B) NUMBER OF LINES OF MESSAGE * 
O019BA 103 @DCADD2 EQU PID+X'O1BAS MDI POINTER 298 ** C) LENGTH OF FOLLOWING LINE eK 
00719C4 104 SUPSTAT EOD PID#txX'O ca? ADDRESS OF MDI STATUS 299 ** D) FIRST LINE OF MESSAGE ae x 
0019D0 105 DEVADD EOU PID+X'01D0! ADDRESS OF DEVICE ADDRESS TABLE 0 300 ** E}) LENGTH OF FOLLOWING LINE * 
0OO019DA 106 DEVADD1 EOU PID#X'O1DA! ADDRESS OF DEVICE ADDRESS TABLE 1 301 ** F) SECOND LINE OF MESSAGE 2 ok 
0019E4 107 DEVADD2 EQU PID#tX"O1E4! ADDRESS OF DEVICE ADDRESS TABLE 2 302 ** G) ETC. ae 
0019EE 108 DEVADD3 EQU PID#tx"O1FE! ADDRESS OF DEVICE ADDRESS TABLE 3 303 ** ee 
0019F8 109 DEVADD4&s EQU PID+X'O1F8! ADDRESS OF DEVICE ADDRESS TABLE 4& QQ HH Re ee a he He eK ie He HK eH ee eK He He he Hee He HH 3 ie He He ae 3h ae he ie He hc ic ee Re ee A he ec a A he He he ee ee ie oe 
001A02 110 DEVADDS EOU PTDtxX!02028 ADDRESS OF DEVICE ADDRESS TABLE 5 JOS RA He a he ea i oe ek 2h i oe ie a he he ee he eh hee 2c 2 te ee ee ae 2k of fe ac fe ae 2k ae he ek he oe 2 oe ee he eee he a fe oi fe ok ke teak ok ok ok 
OO1A0C 111 DEVADD6 EQU PID+x'O20C! ADDRESS IF DEVICE ADDRESS TABLE 6 
001A16 142 DEVADD7 noo BIDea O02 16" ADDRESS OF DEVICE ADDRESS TABLF 7 
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17805 --- CHANNEL/4962 P/N=6825358 EC=374888 PAGE 03 17805 --- CHANNEL/4962 P/N=6825358 EC=374888 PAGE O3A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBN CORP 1976 
002668 536 FO00005 EQU * ' 000001 654 OUTIN EQU 1 OUTIN SVC 
002668 0001 337 DC —-AL2.(0001) 000002 685 IDLE. FOU 2 IDLE svc 
00266A OO1C 538 DC A (0028) 000003 656 IDLES FOU) 3 IDLE SVC - INDEPENDENT OF CPU TYPE 
00266C DICSD7D3CIC3C5S40F 539 DC CLOO28*REPLACE 4962 ATTACHMENT CARD'® 000004 657 CHNGE EOU u CHANGE LEVEL SVC 
002688 540 FO0060 EQU x 000005 658 PGMCK EQU 5 ALLOW RETURN ON PROGRAM CHECK SVC 
002688 0002 541 DC Pp eAnEY 000006 659 EXIT EOU. 6 EXIT SVC 
00268A 002C 242 DC A (O0K4) 000007 660 TERM EOU 7 TERMINATE SVC 
Ooeees oa ena He coo 34 INSTALL 4962 CABLES ON ATTACHMENT CARD. RON ! 000008 661 RESET EQU 8 RESET DEVICE svc 
662 RID EQOU 9 READ ID SVC 
0026BA DACIDTF7FSF2FOUOC 545 are’ pong oo2t t MAP 7820 FOR MORE TESTING! nob OGa a ee ae START CYCLE STEAL SVC 
664 STCSS EQU 11 START CYCLE STEAL STATUS SVC 
0026D2 0000 2AStOPINT DC X*00008 PROGRAM OPTION CONTROL WORD 1 O00000 665 BRED EGU 12 PREPARE DEVICE SV a eeCate 
0000 666 READO EQU 13 READ WITH FUNCTION BIT OFF S 
0026D4 0000 550+OPTN2 DC  xX*00008 PROGRAM OPTION CONTROL WORD 2 ate 667 READ1 ESU 14 READ WITH FUNCTION BIT 3 ON SVC 
5514+* BIT HEX OOO00F 668 RSTAT EOU 15 READ STATUS SVC 
000010 592*B48 EQU 16 0 8 PROBLEM PROGRAM CONTROL BITS 000010 669 WRITO EOU 16 WRITE WITH FUNCTION BIT 3 OFF SVC 
000011 593+B49 EQU 17 1 4 * 000011 670 WRIT1 EOU 17 WRITE WITH FONCTION BIT 3 ON SVC 
000012 554+B50 EQU 18 2 2 * THESE BITS ARE USED WITH THE 000012 671 CTRL EOU 18 CONTROL SVC 
000013 555+B51 EQU 19 3 1 * SECOND OPTION WD AND ARE TO 000013 672 RICB EOU 19 RELEASE INTERUPT CONTROL BLOCK SVC 
000014 556+B52 EQU 20 4 8 * BE ASSIGNED BY EACH PROGRAMMER 000014 673 CICB EQU 20 CONNECT INTEROUPT CONTROL BLOCK SVC 
000015 557+B53  EQU 21 5 4 * 000015 674 HIO EQu 21 HALT ALL T/0 
000016 558+B54 EQU 22 6 2 * 000016 675 REQSD EQU 22 REQUEST USE OF DCP DISK SVC 
000017 559+B55 EQU 23 7 1 * 000017 676 RELSD EQU 23 RELEASE USE OF DCP DISK SVC 
000018 5604#B56 EQU 24 8 8 * 000018 677 HALT EQU 24 HALT SVC 
000019 2614+B57 EQU 25 9 4 * 000019 678 ETOH £EQU 25 EBCDIC TO HEX SVC (STRING 
OOOO1A 562+B58 EQU 26 10 2 : OOOO1A 679 HTOE EQU- 26 HEX TO EBCDIC SVC (STRING 
00001B 963+B59 EQU 27 11 1 * 00001B 680 ATOH EQU 27 ASCII TO HEX SVC (STRING 
00001C 264+B60 EQU 28 12 8 > 00001C 681 HTOA EQU 28 HEX TO ASCII SVC (STRING 
00001D 565+B61 EQU 29 13 4 * 00001D 682 ETOA EQU 29 EBCDIC TO ASCII SVC (STRING 
Q0001E 966+B62 EQU 30 14 2 * 00001E 683 ATOE EOU0 30 ASCII TO EBCDIC SVC (STRING 
0000 JE 2earen FOU 30 1 ) CHARACTER SUPPLIED 00 b0s5 GRe BEADI EU 34 RELTE DATA SESS FOR UBL LO Te 
OO0001F 5694+CMP EOU 31 15 1 COMPARE OPERATION 687 SoLaaae He He He fe hee ae He He He He ae He HH ae he he He he ee he ee He ae he He he ee ae he he eh oH ae oe ae he he eae oe ae a ae ee ae he ee ok 
0026D6 0000 571+OPTN3 DC x'oooot PROGRAM OPTION CONTROL WORD 3 688 * 
5)/2+* 689 * EQUATES USED BY TU*S AS CONSTANTS % 
573+* QO MYSTERY INTERRUPT MT 8 CS STATUS IN PROGRESS CS 690 * % 
574+* 1 ERROR INTERRUPT ER 9 CS AVAILABLE CSA 691 es dk de dk dio i tom goto die dak ok dette Seat te dake teak teak ae ak ee ete 
575+* 2 EXPECTED INTERRUPT rE 10 CS STATUS INTERRUPT ERR CE OOOO04E 692 PLUS EQU Cteet PLUS CHAR 
pore 3 INTERRUPT RECEIVED IN 11 ISB BITS ON (1-7) ISBONW 000060 693 MINUS EOU Ct—t MINUS CHAR 
+ 000000 695 ZERO £EQU 0 
578+* 4 EXPECTED - Sonne XE 12 TEST UNIT RESULTS VOID NG 000001 696 ONE EOU 1 
579+* 5 HARD ERROR HE 13. OIO CC ERROR Tocc 000002 697 TWO EQU 2 
580+* 6 WRONG INTR LEVEL SLE 14 NO INTERRUPT NOTIN 000003 698 THREE FOU 3 
581+* 7 NO INTR EXPECTED NI 15 INTERRUPT CC ERROR InNCC 000004 699 FOUR FOU 4 
582+* BIT HEX 000005 700 FIVE £EQU 5 
000020 58341 EQU 32 0 8 MYSTERY INTERRUPT HAPPENED 000006 70% SIX EOU 6 
000021 584+ER EQU 33 1 4 ERROR RECEIVED ON INTERRUPT 000007 702 SEVEN EOU 7 
000022 5854+xI EQU 34 2 2 EXPECTED INTERRUPT CONTROL BIT 000008 703 EIGHT FOU 8 
000023 5 86+IN EQU 35 3 1 INTERRUPT RECEIVED CONTROL BIT 000009 704 NINE EOU 9 
000024 587+XE EQU 36 4 8 EXPECTED ERROR RESPONSE OOOOOA 705 TEN EOU 10 
000025 S588+HE EQU 37 5 4 HARD ERROR, 8 RETRIES 00000B 706 ELEVN EOU 11 11 
000026 589+S$LE EQU 38 6 2 INTERRUPT én WRONG LEVEL ERROR o00000c 707 TWELV EOU 12 12 
000027 5904NI EQU 39 7 1 NO INTERRUPT EXPECTED E 00000D 708 THRIN E60 13 13 
000028 591#CS EQU 40 8 8 CYCLE STATUS IN PROGRESS OOOOOF 709 FIVTN EQU 15 15 
000029 592+CSA EQU 44 9 4 CYCLE STEAL AVAILABLE 000010 710 SIXTN EOU 16 16 
QOOOO2A 593+CE EOU 42 10 2 CYCLE STEAL STATUS INERRRUPT ERROR 000020 711 THRY2 EOD 32 32 
00002B 594+ISBON EQU 43 11 1 ISB BITS ON (1-7 000040 712 SIxT4 EQU 64 64 
00002C 595+4+NG a Gy 12 8 TEST ONIT RESULTS NO GOOD 000080 713 ONE28 EOQU 128 128 
00002D 5964#IOCC EQU 45 13 4 OTO CC ERROR 000100 774 TWOS6 EOD 256 256 
00002E 597+NOIN EQU 46 14 2 NO INTERRUPT 000400 715 ONEK E6U 1024 1024 
00002F eoecee EQU 47 15 1 INTERRUPT CC ERROR BeOcaD ace WOK EQU ana enn 
000C00 THREK EQU 
600+* COMMON BUFFER FOR PRINTING DATA 001000 7718 FOURK EOU 4096 4096 
601+* FFFFFF 720 M1 FOU -1 -1 
0026D8 0000 603+$TUID DC A (*-* TEST UNIT IDENTIFICATION FFFFFE 731 #2 EOU -2 -2 
0026DA 0000 6044$IOIN DC A (*-* I/O AND INTR CONDITION CODES FFFFFD 722 M3 FOU =9 «3 
0026DC 0000 605+$ISB DC A (*-* R7, INTR STATUS BYTE & DEV ADRS FFFFFC 723 Mu FOU ait -i 
O026DE 0000 6064LSTIO DC A (*-* ADRS OF LAST I/O + 4 BYTES 725 to ICR $I TO RII EI IO RIOR So OR RCI RR BE 
0026E0 0000 6074#DEV1 DC A (*-* DEVICE DEPENDENT DATA 726 * * 
O0026E2 0000 6084#DEV2 DC A (*-* * 727 * THE FOLLOWING ARE EQUATES FOR BIT DISPLACEMENTS FROM THE * 
O0026E4 0000 609+DEV3 DC A (*-* 728 * BEGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. * 
0026E6 0000 6¢04+DEV4 DC A (*-* * 729 * * 
0026E0 611#SCTID EQU DEV1 READ ID BUFFER FOR IBIS & TERN T3230 CRRRRERE RRR HEEKERR EHR EEEK KE RHEER ERE EERE EKER EERE EERE EEE KEKE RAK ERE KEE 
0026E8 6972+DCBUF EOU * DCB BUFFER FOR LAST DCB USED 000000 731 BSO EQU 0 
0026E8 0000 613+#DCB1 OD A (*-* LAST DCB TABEE? CONTROL WORD 000001 732 BS1 EOU 1 
OO26EA 0000 614+#DCB2 DC A (*-* LAST DCB TABLE, DEV DEP WORD 000002 733 BS2 EOU 2 
0026EC 0000 615+#DCB3 DC A (*-* LAST DCB TABLE, DEV DEP WORD 000003 734 BS3 EOU 3 
0026EE 0000 616+DCB4 DC A (*-* LAST DCB TABLE, DEV DEP WORD 000004 735 BSG FOU 4 
0026F0 0000 617+DCB5 DC A (*-* LAST DCB TABLE, DEV DEP WORD 000005 736 BSS EOU 5 
0026F2 0000 618+DCB6 DC A (*-* LAST DCB TABLE, CHAIN ADRS 000006 737 BS6 EOU 6 
0026F4 0000 6194#DCB7 DC A (*-* LAST DCB TABLE, BYTE COUNT 000007 738 BS7 FOU 7 
0026F6 0000 620*DCB8 DC A (*-* LAST DCB TABLE, BUFFER ADDRESS 000008 739 BSB FOU 8 
621+% 000009 740 BS9 EQ U 9 
0026F8 622+CSBUF EQU * YCLE STEAL DATA BUFFER OOOOOA 741 BS10 §EOU 10 
0026F8 0000 623+CSTL1 DC A (*-* CYCLE STEAL BUFFER, RESIDUAL ADRS 00000B 742 BS11 EBOU 11 
OO26FA 0000 6244CSTL2 DC A (¥-* CYCLE STEAL WD 2, E DEPEND 00000c 743 BS12 EOU 12 
O0026FC 0000 625+CSTL3 DC A (¥-* CYCLE STEAL WD 3, DEVICE DEPEWD 00000D 744 BS13 FOU 13 
OO26FE 0000 626+CSTL4 DC A (*-* CYCLE STEAL WD 4, DEVICE DEPEND 900008 745 BS14 EOOU 14 
002700 0000 627+CSTL5 DC A (*-* CYCLE STEAL WD 5, DEVICE DEPEND OOO000F 746 BS15 E60 15 
002702 0000 628+CSTL6 DC A (*-* CYCLE STEAL WD 6, DEVICE DEPEND 748 COPY 17801 01DEC76 
002704 0000 6294+CSTL7 DC A (*-* CYCLE STEAL WD 7, DEVICE DEPEND 749 £7801 TOIT ,_1 
002706 0000 eaateo DC A (*-* CYCLE STEAL WD 8, DEVICE DEPEND 750 ¢ 38st de to data ota toto tok to ii ORO IO Ra ROR RR doit ee #6 FEB 6% ® 
+ 751+* 
002708 0000 632+$SUBN DC A (*-* LAST SUBROUTINE ADDRESS USED 752¢+¢* TEST UNIT 
GOST OR 5 eo eset SE NTE DC 2 i102 : INTERRUPT LEVEL REQUESTED Fes 5/09/77 
Gee 4962 ATTACHMENT TEST 
002710 0000 635¢+TURTN DC A (*-* TEST UNIT RETURN ADRS TO MDI 755+ z GR. 
002712 0O0B2 636¢+$DVID DC X*OOB2! DEVICE ID 756+* PURPOSE 
002714 19D0 637+SVCAL DC A(eeay ADRS OF DEVICE ADDRESS 157+ 
002716 0000 NE ae DC A (*-* IBIS CYLINDER ADDRESS 7158+ 
+ 759+* CA G SEQUENC 
SEE ee ee ee eee ee a eee ae gas ae 
+ ° 161+* ROUTINE WILL PREPARE THE I/O DEVICE TO INTERRUPT ON LEVEL ZERO 
Otaes STILL VALID BUT A DIFFERENT TEST IS TO BE PERFORMED. ee 2 D eneae AN INTERRUPT. WHEW THE INTERRUPT OCCURS, ue ae Is 
+ ° 
002718 4020 26D8 3C02 6444¢T3CO2 MVHI X*3C02', $TUID SET UP TEST UNIT ID 764+*% rover TH ie WIL CCUR BECAUSE THIS PROGRAN WILL BE RUNNING 
00271E 5700 ee Exs R7 RETURN TO MDI SUPVR 765+* AS A BACKGROUND PROGRARK. 
*x 
648 LOPE eee PE LOE LE ECE E COTO ETE Te EEE TE TEE RE ET rn eT mt ses WOpEESe ta5 San tue TORO ARG ACO EGECEEDS INTERRUPT. RESIDOAL 
649 * bE 768+% : 
650 * EQUATED NAMES FOR SUPPORTED SVC'!S * 7169+* PROGRAM PASSES STATUS OF ALL LINES IN FOLLOWING FORMAT: 
651 * * 770+* A TURESUL BIT 0------------ OT USED 
652 OO IOI IO II IOI IIO IOI ICI IGOR III III IO IOI IOI tok og RIO Rio i i 80k 1714% : TURESUL BIT 1------------ NOT USED 
000000 653 OUT EQ U 0 OUT SVC 772+* TURESUL BIT 2------------ FALSE STORE PROTECT CHECK 
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CHANNEL/4962 
LOCTR OBJECT TEXT 


7801 


0020 


254C 


OCOE 
FFF 1 


OOBA 
OOAA 
OOCA 


0010 


0008 


26DC 
26DD 
0001 
0000 
0021 


BWOooe 
Oovooe 
ooooeo 
wre Ooul 


1000 
0005 


P/N=6825358 EC=374888 PAGE O4 
STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
eaete TURESUL. BLT 32===-5->==-+= DCB SPEC CK NOT ON IN ISB 
+ 
7175+ TURESUL BIT §<<<-===+---=-- DCB SPEC CHECK NOT REPORTED 
6+* TURESUL BLT 5=---=-+----- STOR PROT NOT ON IN ISB 
LURESUL. BIT: 6======-++>-—-= STOR PROTECT CHECK NOT REPORTED 
TURESUL: SLIT ‘7s-2=--2>S7— INV STOR CK NOT ON IN ISB 


TURESUL BIT 
TURESUL BIT 
TURESUL BIT 
TURESUL BIT 


ae a rene WRONG CONDITION CODE 

Se ee INVAL STOR ADDRESS NOT DETECTED 
===> S55 WRONG CYCLE STEAL ADDRESS 
=s2-SSse5= RESIDUAL ADDRESS ERROR 


TURESOUL:-BIY -12----—-===-= NOT USED 
TURESUL BIT 1.324=-—--+-== OIO CC ERROR 
GSS —=5 DEVICE ID MISCONPARE 
TURESUL BIT 15---=+------ SEEK NO-OP ERROR OR CS STATUS ERR 


TURESUL BIT 
TURESUL BIT 
TURESUL BIT 
TURFSUL BIT 


eh CYCLE STEAL STATUS FOR FAILINS OP 
CC — 32-39 OI0 CC,40-47 INT CC 


8 
9 
1 
4 
: 
TURESUL BIT ; 
1 
3 
4 IBS 
64-79 ------ OPTION WORD 3 (ERROR INDICATORS) 


we rTTT TTT LT TTT 
HHH EH 


+* RETURN CONTROL 


+ 
B TURTN* RETURN TO MDI SUPERVISOR 


H+ EKRMAKEKAEEKEKEKKEKEKEK EK AEK KEKE KAK HK KEKHE KKK KKK KK AKE KEKE EKKK EEK KE EKKEKREKEKKEK KKK 


#77801 MVW R7,TURTN SAVE RETURN ADDRESS 
MVWI X'9801* S$TUID 


++ 
He % 


+ SAVE T0 ID FOR DISPLAY 
+ MVA OPTN1,R4 SET UP POINTER ADRS IN R4 
+ 
MVWI xX*0020', SINTL RESET PREPARE 'I' BIT & CONNECT 
BAL $conc,R6 * 
DC A(TO1ER) * 
NVWZ MTURESUL,R2 CLEAR RESULTS WORD 
MVWZ TURESUL42,R2 CLEAR RESULTS WORD 2 
MVWZ TURESUL+4,R2 CLEAR RESULTS WORD 3 
MVWZ TURESUL+6,R2 CLEAR RESULTS WORD 4 
MVWZ TURESUL+8 -R2 CLEAP RESULTS WORD 5 


MVA TURESUL,R2 

MVA  TURESUL, R2 

MVB cCpUID,RO 
37,R0 


ADDRESS OF RESULTS 
ADDRESS OF RESULTS WORD 
DETERMINE TYPF OF PROCESSOR 


JUMP IF NOT 4955 
LOAD TIME CONSTANT FOR 2 SEC 


b>] 


TOIT 
MVWI X*254C*,TO1T1+4+2 
J 01T2 


TI 
TOIT MVWI | X*OCOE',T01T142 ee LOAD TIME CONS FOR 2 SEZ 
TOIT2 MVWI XtFFF1*, SINTL ET UP INTERRUPT LEVEL FOR PREP 
NVA IOBLK,R RESET DEVICE 
NVA TTST1+10,R6 SETUP RETURN ADDRESS IF ERROR 
svc RESET * 
TOITT MVWI | =x*0000',RO TINE OUT 2 SEC 
Itst5 svc IDLE * 
JCT ITtSstT5,R9O * 
MVA IOBLK,R7 RESET DEVICE 
SVC RESET * 
NVA IOBLK,R7 READ DEVICE ID 
MVA ITST1+10,R6 SETUP RETURN ADDRESS IF ERROR 
TO1D SVC RID * 
see See toe VERIFY DEVICE ID-DIT,PIXED HEADS 


TST 
CwiI X'OOAA', TOMOD+4 
JE Itst 
CwI X"OOCA!, TOMOD+4 
JE ITST1 


B TOA 
ITST1 AWI X410', SINTL 
BAL oon ear 


VERIFY DEVICE ID-DUT,NO FIXED HEADS 
VERIFY DEVICE YD-LARGE FILE 
DEVICE ID ERROR 


ADV INTR LEVEL, STARTING AT 0 
eenon DEV CNTL PLOCK AND PREP DEV 


DC A(TO1ER) R 
MVWI 8,CEDAT SFT DIAG MODE 1 AND 4 
BAL CEOP1-R6 * 
DC A (TOTER) ERROR 
ITST3 TBTS XE SET EXPECTED ERROR 
BAL Toes, R6 CYCLE STEAL STATUS TO CAUSE INTER 
DC A(T0 1£R) ERROR 
TBTR (R4,ER) INTERRUPT ERROR? 
BON 018 YES 
CB ZEROO, SISB CHECK ISB(0-7) FOR ZEROS 
BNE 018 ERROR 
CB DEVADD,$ISB+1 CHECK DEVICE ADDRESS IN ISB 
BNE TOR ERROP 
TWI 1,CSTL2 CHECK CS STATS WORD 1 FOR NOT RDY 
BOFF tT618B ERROR 
CWI 0,CSTLY CHECK CS STATS WORD 3 FOR ZEROS 
BNE B ERROR 
CWI =. X*21" ,SINTL HAS INTR LEVEL COME DOWN TO 2 
INE IvST1 * NO, BCH AND CONTINUE TEST 
MVWI X'8005",SKDCB SEEK CONTROL WORD - CHATNED TO xtocs 
MVWI 0,SKDCB42 SEEK NO OP 
MVWI O° SKDCB+8 SELECT HEAD 
NVA cCSDCB,SKDCBt10 CHAINING ADDRESS 


SET DIAG MODE 2 & 4 TURN ON INTERNAL 


MVWI X'OOOK? ,CEDAT 
é * READY TO ALLOW CYCLE STEALS 


BAL CEOP1,R 
1 


Dc A (TO 

TBTS gra XE SET EXPECTED ERROR 

BAL SEEK ,R6 SEEK NO-OP 

DC A (7016 ERROP 

TBTR { 4 ER INTEPRUPT ERROR? 

BOFF 71019 NO-DCB SPEC CHECK NOT DETECTED 
THI X'1000*,SISB DCB SPEC CHECK? 

BOFF TO1W NO EFROR 

MVWI X*'0005*,SKDCB RESTORE SEEK CONTROL WORD 
BAL $CKSK,R6 SEEK CHAINED TO SEEK 

ite A(T016 

MVA  SKDCB+13,R1 SHOULD RF RESIDULA ADDRESS 
TBTS (Ra x SET EXPECTED ERROR 

BAL TOCS, R6 CYCLE STEAL STATUS 

DC A(TO1ER) 

TBTR (R4,ER) INTERRUPT ERROR? 

BON 016 YES 

CW CSTL1,R1 CHECK RESIDUAL ADDRESS 

BNE TO1L RESTDUAL ADDRESS ERROR 
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enh 


P/N=6825358 


EC=374888 


COPYPIGHT IBM CORP 19746 


DEV LAST VALID STORAGE ADDR FOR CS 
FYRST AVAILABLE STOR LOCATION 

SET EXPECTED ERROR 

CYCLE STEAL STATUS 


ERROR 
INTERRUPT ERROR? 
CHECK RESIDUAL ADDRESS 


WRONG CYCLE STEAL ADDRESS 
END OF PHYSICAL STORAGE? 


YES 

INCREMENT BUFFER ADDRESS 
MAX STORAGE? 

YES 


FORCE INVALID STG ADDRESS 
SET EXPECTED ERROR 

CYCLE STEAL STATUS 

ERROR 

INTERRUPT ERROR? 

NO, INV STG ADDR NOT REPORTED 
ARE COND CODES 7 AND 2? 
NO-ERROR 

INVALID STORAGE BIT ON IN ISB? 
NO-ERROR 

CS ADDRESS 

DETERMINE TYPE OF PROCESSOR 


JUMP IF NOT 4955 

CS CONTROL WORD 

ENABLE STORE PROTECT KEY 
SET EXPECTED ERROR 

CYCLE STEAL STATUS TO CAUSE INTER 
ERROR 

INTERRUPT ERROR? 

YES-FLASE STORE PROTECT KEY 
SFT OR INCREMENT KEYS 

SET EXPECTED ERROR 

CYCLE STEAL STATUS 


ERROR 
INTERRUPT ERROR? 

NO,STOR PROTECT NOT REPORTED 
ARE COND CODES 7 AND 27 
NO-ERROR 

STOR PROT BIT NOT ON IN ISB? 
NO-ERROR 

ALL KEYS CHECKED? 


DISABLE STORAGE PROTECT 
RESTORE CS DCR 


FORCE DCB SPEC CHECK 
SET EXPECTED ERROR 
CYCLE STEAL STATUS 
ERROR 


INTERRUPT ERROR? 

NO,DCBR SPEC CHECK NOT REPORTED 
ARE COND CODES 7 AND 2? 
NO-ERROR 

DCB SPEC CHECK BIT ON IN ISB? 
NO-ERROR 


CYCLE STEAL STATUS FOR FAILING OP 
cone CODES 


OPTION WORD 3 (CONDITION CODES) 
DISABLE STORAGE PROTECT 
RESTORE VALID CS DCB 


RESET 
* 


ETURN TO MDI CONTROLLER 


SCONX R 
RM AK KK KK ARH KHK MAH KK KA KKMKAKKAKAKHAKHKKK KKKHKKKKKKE KK KEKKKKEKKKEKKEKKKKKKK KEKEKESK 
x 


SOURCE STATEMENT 
SWI 14,,RO 
MVW  ©TUAUFF,CSDCB+14 
more FEES RAE 
DC A(TO1ER) 
TOL 01 aks 
ae Soars 
Shin Sauget 1-20 
AWI 8 CSDCB+ 14 
T01G CuI X* FEFO' ,RO 
AWI 10,CSDCB+14 
TBTS (ra XE) 
BAL Toes, R6 
DC A (TO1ER) 
Sore Soin 
CHT X*0702" , SIOIN 
THI X*0400' ,SISB 
[013 MVA  CSBUF,CSDCB414 
MVB DID,RO 
SHE TO4n, 
HVWI X42000' ,CSDCB 
TBTS (RG XE) 
BAL rots, k6 
DC A (TO1ER) 
jon soage 
TO1K AWT X*0100" ,CSDCB 
BAL Tocs be 
DC A (TO 1ER) 
jOre so1ke 
CHT X*0 702+ , SIOIN 
Torr fol Oe 
CWI X*'2700',CSDCB 
pie oxen? 
MVWI X*2000',CSDCB 
MVA CSBUF,CSDCB+14 
TO1Z AWT TeCSDCB+ 14 
BAL oes b6 
DC A (TOTER) 
sore bate 
CHL X*0702", SIOIN 
TWI  X'1000',S$ISB 
grr Te 
TO1C MVW CSTL2,TURESUL+2 
MVW S$IOIN, TURESULtY 
MVW $ISB,TURESUL#6 
TEND ore OPTNS ,TURESUL+S 
MVWI X*2000*,CSDCB 
MVA csBUF,CSDCB+14 
MVA IOBLK,R7 
SVC RESET 
TXIT 
B 
TOA TBTS R2,.14) 
T01B TBTS R2 15) 
TOIL TBTS 82,11) 
TOM TBTS {82,.10) 
TO1N TBTS 422.9) 
TO1P TBTS {82 ,8) 
T010 TBTS 48247) 
T01X TBTS (82,6) 
T01U TBTS (82.5) 
T01V TBTS (R244) 
TO1W TBTS (R2,3) 
TO1Y TBTS (B22) 
TO1R MVWZ TURESUL,R2 
MVWZ TORESUL42,R2 
MVWZ TURESUL#H ,R2 
MVWZ TORESUL+6,R2 
MVWZ TORESUL+8, R2 
MVA TURESUL,R2 
TO1ER TBTS AR? 13) 
J 01¢ 
$CKSK MVA  CHSK,IODCB 
_ B XTO 
CHSK DC X'80058 
DC X'00008 
DC X*0000! 


SE ITD MYISCOMPARE 

cn STEAL STATUS OR SEEK ERROR 
Neogene ADDRESS ERROR 

eora CYCLE STEAL ADDRESS 
oe STOR ADDR NOT DETECTED 
WRONG CONDITION CODE 

EXIT 

re BIT NOT ON IN ISB 

poe PROTECT NOT DETECTED 

aoe PROT NOT ON IN ISB 

LT CHECK NOT REPORTED 
aren CK NOT ON IN ISB 

era STOPE PROTECT CHECK 

CLEAR RESULTS WORD 
CLEAR RESULTS WORD 
CLEAR RESULTS WORD 
CLEAR RESULTS WORD 
CLEAR RESULTS WORD 
ADDRESS OF RESULTS 
OIO CC ERROR 

EXIT 


SET UP CONTROL BLOCK FOR SVC CALL 


U1 WIND 


SEEK CONTROL WORD - CHAINNING 
NO OP 


PAGE OBA 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
0029c8 0000 1001 DC x*00008 002AA0 4020 38AE 0000 1116 MVWI xX*0000!,DGDCB+tY RESTORE VALID SECTOR # 
0029CA 0000 1002 DC X¥'0000! OO2AA6 4020 38B6 0006 1117 MVWI X*0006',DGDCBt12 SETUP INVALID BYTE COUNT 
Q029CC 38FA 1003 DC A (SKDCB) CHAIN ADDRESS 1118 ERTST 7,$DIAG USE SPECIAL XIO ROUTINE 
0029CE 0000 1004 DC x*0000 OO2AAC 4020 3E80 3BBE 1119+ MVA ShtAG. ERTST+4 SET UP ADDRESS FOR I/O COMMAMD 
1005 * OO2AB2 6A03 3E7C 1120+ BAL ERTST,R2 USE COMMON ERROR TESTING SUBROUTINE 
1007 COPY _T7804 01DEC76 002AB6 000D 1121+ DC A 13) DISP FROM TOP OF DCB IN BYPFES 
1008 T7804 TUIT $ERRS OO2AB8 2514 1122 DC A (TO G) ERROR ADDR 
a a a aly OO2ABA 4020 38B6 0100 1123 HVWI x*0100*,DGDCBt+12 RESTORE VALID BYTE COUNT 
+ 1124 * 
ig DosKce 4050 3046 G00 «4496 NVHT £0002! (RDDCB#12 RESTORE WALID BYTE COUNT 
seaice THIS ROUTINE WILL FORCE ERRORS THAT THE ATTACHMENT WILL REJECT pootce 4020 3948 3FF9 1127 MVRI X*3FFQ', ,RDDCB+ 14 SETOP INVALID DATA ADDRESS 
1015+* PURPOSE 002AD2 4020 3E80 3B2C 1129+ HV SRDS, ERTST+4 SET OP ADDRESS FOR I/O COMMAND 
et bee 5 05/77 OO2AD8 6A03 3E7C 1130+ BAL ERTS£, R2 USE COMHON ERROR TESTING SUBROUTINE 
ayaats ene Te enouENGe 105/ OO2ADC OO0OF 1131+ DC A 19), DISP FROM TOP OF DCB IW BYTES 
1019+* ses OOsKEO £536 38B6 0100 1133 BV WI t 10g DGDCB+12 RESTORE VALID BYTE COUNT 
1020+* THE FOLLOWING ERRORS ARE FORCED: 051 ee 8828 18C2 3948 1134 AVW TUBUFF ( RDDCB+ 14 RESTORE VALID DATA ADDRESS 
1021+* . OO2RAEC 4029 3948 0500 1135 AWE X¥*0500! ,RDDCB+¢ 14 * 
105948 q: TNVALID SECTOR NUMBER (RD OP) 1136 * 
+ « 
1024+ : INVALID SECTOR NUMBER (RD SECTOR ID) Bnsaee rary 2oee PEP a ate cOBE Ren! aes 
105es% 4. ODD BYTE COUNT Pepe epee ee OO2AF8 6802 3D5Cc 11504 Be SCONX RETURN TO MDI CONTROLLER 
1027+* : INVALID BYTE COUNT (REAR SECTOR ID) sel : 114 14 RRRERRRE ERE KEEKEKAEKKAR KK ERE KEKE KERR EKKKLKAKAKEKAKHEEE KK KE EK HH HEHE HH K 
{028+% INVALID BYTE COUNT (START DIAG) 142 * 
Hie : ODD DATA ADDRESS OO2AEC 48.40 1143 TOA TBTS {B0, 0) INVALID COMMAND 
1031+* PROGRAM PASSES STATUS OF ALL LINES IN FOLLOWING FORMAT: 005800 usu 1145 TO4B TBTS {RO 1) INVALID SECTOR # (RD OP) 
10324 ‘ TURESUL BIT O--INVALID COMMAND 002802 5SOF7 1146 a oug 
1033+4* : TURESUL BIT 1--INVALID SECTOR # (RD OP) 002B04 4842 1147 TO4C TBTS {RO 2) INVALID SECTOR # (RD SECTOR ID) 
1034+ : TURESUL BIT 2--INVALID SECTOR # (RD SECTOR ID) 002B06 SOF5 1148 J 04g 
1035+* ‘e TURESOL BIT 3--INVALID > eeTOR # (DIAG OP) 002B08 4843 1149 TO4D TBTS {20 3) INVALID SECTOR # (DIAG OP) 
1036+* : TURESUL BIT 4--ODD BYTE COUN OO2BOA S5OF3 1150 3 ous 
1037+* . TURESUL BIT 5--INVALID BYTE Count (RP SECTOR ID) OO2B0C 4844 1151 TOME TBTS {80 4) ODD BYTE COUNT 
1038+* s TURESUL BIT 6--INVALID BYTE COUNT (START ID) 0O0O2B0E 5SOF1 1152 a Oug 
1039+* ° TURESUL BIT 7--ODD DATA ADDRESS 002B10 4845 1153 TO4F TBTS {Ro 5) INVALID BYTE COUNT (RD SECTOR ID) 
10404+* é TURESUL BIT 8--OIO ERROR 002B12 SOEF 1154 J oug 
1041+* . TURESUL BET: 9e-=-—=—-ee= NOT USED 002B14 4846 1155 TO4G TBTS {20 6) INVALID BYTE COUNT (START DIAG) 
1042+* . TURESUL BIT 10---------- NOT USED 002B16 5SOED 1156 J 045 
1043+* : TURESEL: BIT. Dies Sseees= NOT USED 002B18 4847 1157 TO4H TBTS {Bo 7) ODD DATA ADDRESS 
10444* é TURESUL BIT 12----------- NOT USED 002B1A SOEB 1158 ous 
1oues# > TURESUL BIT 1g---------- NOP USED OOSBIE S0E9 We0 TS Abas ran nee 
1047+* : TURESUL BIT 15---------- NOT USED oe 1161 * 
1048+* ° 1162 * 
1049+4+* 1163 * 
Mey e ne comme! 1188 7906 SB8F, nee aie 
er as B TURTN* RETURN TO MDI SUPERVISOR 116 G4 SERRE EAE AE REREKHEKE REE EK EKER EAE EKER AK EK EK KE KEKE EO GH PRB 6S 
+ 
ee eeuc ee ee ce eg anne Oe Wiens TEST UNIT 
0029D0 6FOD 2710 1055+T7804 MVW SAVE RETURN ADDRESS 1169+* 
0029D4 4020 26D8 7804 1056+ MVWI lagout STUID SAVE TU ID FOR DISPLAY 1170+* DATA BUFFER WRAP TEST 5/05/77 
0029DA 4424 26D2 1057+ MVA OPTN1 1, Rh SFT UP POINTER ADRS IN R4 1171+* 
0029DE 6E03 3CD8 1058+ BAL $CONC CLEAR DEV DEP STG AND CONNECT T/0 BL 1172+* PURPOSE 
0029E2 3D0C 10308 DC E(euRk sy ERROR ADRS FOR INVALID PREP 1173+* 
+ +* 
Aooocs Pre Se OOOA oen evar Seopy neo TURN ON READY, MODE 164 Wsex CALLING SEQUENCE 
1176+* 
QO29EE 2B1C 1063 TOUK . 1177+* THIS ROUTINE WILL VERIFY THE DATA BUFFER IN THE 4962 ATTACHMENT 
OO29FO CA25 18C8 1064 MVWZ T RESUL R2 CLEAR RESULTS WORD 78+ Cc URNING TAGNOSTIC A RUN G BUFFER WR TEST. 
383353 $835 3858 2006 1982 © Bi FYBESEFSABacs TREES Sea breowaRuD a ‘ai i ana 
* F : 
1067 ERTST $RD$ ~ USE SPECIAL XIO ROUTINE pe See a emCnr Be Goo ae ooo aoe Neen ERPS 
QOO29FE 4020 3E80 3B2C 1068+ MVA $hD$ , ERTST+4 SET UP ADDRESS FOR I/O COMMAND 1182+%* = TORESUL BIT 1------------ NOT USED 
OO2A04 6A03 3ET7C 1069+ BAL ERTS, R2 USE COMMON ERROR TESTING SUBROUTINE 1183%+* 3 TURESUL BIT 2------------ NOT USED 
002A08 0001 1070+ DC A Sah DISP FROM TOP OF DCB IN BYTES 1184+ te TURESUL BIT 3----------- -NOT USED 
0OO2A0A 2AFC 1074 : pc A (TOGA) ERROR ADDRESS 1185+* 2 
* -  TURESUL BIT 4------------ USED 
002A0C 4020 393A 2009 1073 MVWI X*2009',RDDCB READ CONTROL WORD hee A wn S SUL pra ¢ Sa a tc Se On Deep 
002A12 4020 3942 O004C 1074 MVWI X'OOUC', RDDCB+8 SETUP INVALID SECTOR # 1188+* = TURESUL BIT 6------------ NOT USED 
002A18 4020 3946 0002 1075 MVWI x*'0002' ,RDDCB+12 SETUP VALID BYTE COUNT 1189+* e TURESUL BIT 7----------- NOT USED 
1076 ERTST 5,$RD$ USE SPECIAL XIO ROUTINE 1190+* . 
OO2A1E 4020 3E80 3B2C 1077+ MHVA $hko$ Enioee SET UP ADDRESS FOR I/O COMMAND 11914 % TURESUL BIT 8------------ NOT USED 
002A24 6A03 3E7C 1078+ BAL ERTST,R USE COMMON ERROR TESTING SUBROUTINE 1192+ = TURESUL BIT 9----------- NOT USED 
002A28 0009 1079+ DC A (2) DISP FROM TOP OF DCB IN BYTES 1193¢* - TURESUL BIT 10---------- NOT USED 
OO2A2A 2800 Bey ; DC A (TO4B) ERROR ADDRESS ey ae 7 TURESUL BIT 14-------~---- NOT DIAGNOSTIC MODE 
+ ° 
002A2C 4020 38DE 3c00 1082 MVWI xX*'3C00',RSDCBt4 SETUP INVALID SEC NUM 1196+* . TURESUL BIT 12----------- NOT USED 
1083 ERTST 3,$RDID USE SPECIAL XIO ROUTINE 119 7+* 7 TURESUL BIT 13----------- OIO CC ERROR 
32838 8898 3E92 280° bass RIE bape Ry™ST# GEE ComRON Enron tesheuS: SUBROUTINE Wists BUBESUE BEE QQcczomooo=> oe tip toES AER 
3 + URESUL BIT 15---------- NO I RRUPT RECEIVED 
002A3C 0005 1086+ DC A (3) DISP FROM TOP OF DCB IN BYTES id0o3* i SURES UD Bre tn nee . 
ee tee a ess een, ee 9sce | EURESUL BEE 46-2) xxixz GECEPSSTERTOSONEUS abo RAE Ce ©? 
3282 4828 SER 3788 1883 RYEE FVGSRBACBEBEBS4. © SHRUB TYEDTB VE EOut Pe ammemme see at eae 
* e -79 ------ 
1091 ERTST 3.$DTAG’ USE SPECTAL XIO ROUTINE 120 : TURESUL BIT 64-79 OPTION WORD 3 repabE INDICATORS) 
OO2A4C 4020 3E80 3BBE 1092+ NVA $HIAG, ERTST+4 SET UP ADDRESS FOR yO COMMAN 1206+* 
002A52 6A03 3E7C 1093+ BAL ERTST,R2 USE COMMON ERROR TESTING SUBROUTINE 1207+* RETURN CONTROL 
002A56 0005 1094+ DC A (3) DISP FROM TOP OF DCB IN BYTES 1208+* 
Q02A58 2808 1032 ‘ DC A (TO4D) ERROR ADDRESS 1209+* B TURTN* RETURN TO MDI SUPERVISOR 
ate 
etet: nae 3333 Anse 1039 sae aosnt Boe oKe Beane Tet a CeReOR ‘ 131i ssaueneecaenesasanessannnssasnneeeaanessaeesscieenessuneenseenessaeess 
+ SAVE RETU ADDRES 
002466 4020 3946 0003 1099 MVWI X*0003' (RDDCB+ 12 SETUP INVALID BYTE COUNT BAOEOA. “Roo Sep e hub Meee eee. Sr eeuee Sane eRe en une Sr eoay 
1100 ERTST 7,5RD$ USE SPECIAL XIO ROUTINE OO2B2A 4424 26D2 1214+ HVA OPTN1, RA SET UP POINTER ADRS IN R4& 
92095 038 3292 22° 183k RIB ang PRST* GEE CONOR “ERSOR fasten Ge SOsROUTINE OQ2RgR. Bae. seus gigs BE OnE SHEOR RBus PORSTavAleDCoNEeST 17 BY 
; S FOR INVALID PREP 
002A76 0OO00D 1103+ DC ae DISP FROM TOP OF DCB IN BYTES pO 2Bee -2Bes ieee me EtEDOES) aaa ae 
ee ee ose seb tekruntees 003838 CAIs {BCA 1319 MVHZ TURESULS 2 R2 CLEAR RESULTS WORD 2 
+ 
OO2A7A 4020 38DA 200A 1106 MVWI X'200A*,RSDCB READ SECTOR ID CONTROL WORD 002B3C CA25 18CC 1220 MVWZ TURESULt4, R2 CLEAR RESULTS WORD 3 
002A80 4020 38DE 0000 1107 MVWI xX*'0000', RSDCB+t4 VALIDATE SECTOR # 002B40 CA25 18CE 1221 HVWZ TURESUL46,R2 CLEAR RESULTS WORD 4 
002A86 4020 38EF6 0008 1108 MVWI xX*0008',RSDCBt12 SETUP INVALID BYTE COUNT 002B44 CA25 18D0 1222 MVWZ TURESUL+8~R2 CLEAR RESULTS WORD 5 
1109 ERTST 7,$PDID USE SPECIAL XIO ROUTINE OO2B48 4224 18C8 1223 NVA TURESUL, R2 ADDRESS OF RESULTS 
OO2A8C 4020 3E80 3B06 1110+ MVA $RDID, ERTST+4 SET UP ADDRESS FOR I/0 COMMAND OO2B4UC 4C67 1224 TBTS RY TORN ON NO INTER HODE INDICATOR 
002A92 6A03 3E7C 11114 BAL ERTST,R2 USE COMMON ERROR TESTING SUBROUTINE OO2B4UE 4724 3cc4 1225 HVA OBLK, 7 ISSUE DEVICE RESET 
OOSA98 2840 1443" De OR STOKE PRROR ADDRESS TN DEES Doan ee. boos iaee Bice neces : 
7 7 Cc 
O02A9A 4020 38E6 0006 1114 MVWI X"O006* ,RSDCB+12 RESTORE VALID BYTE COUNT NOsceL. 60s SaOR 1230 AWE Ebcue ee gt Pee Ghose O08 
1115 * . t 002B5E 2BC4 1229 DC A (TOGER) ERROR 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
0OO2B60 6EF03 3A4A 1230 BAL SENSO, R6 READ SENSE WORD ONE 002C38 4020 2EB2 254c 1345 MVWI Xt254C* ,TTIB+2 LOAD TIME CONSTANT FOR 2 SEC 
0O0O2B64 2BC4 1231 DC A (TO6ER) ERROR 002C3E 4020 2F0C 000B 1346 MVWI X*OOOB',TT7C+2 LOAD TIME CONSTANT FOR 40 USEC 
002B66 402F 3A6E 8000 1232 CWI X*8000',RDATAO CHECK FOR DIAGNOSTIC MODE 002c44 4020 2F8E 7860 1347 MVWI X"7860!,TT7D+2 LOAD TIME CONSTANT FOR 400 MSEC 
002B6C 1025 1233 JOFF TO6D DIAG MODE NOT ON QO2CHA 500D 1348 J TT7E 
OO2B6E 6£E03 39FA 1234 BAL WRAP, R6 READ DIAGNOSTIC WRAP 002C4C 4020 2E88 0200 1349 TTO7 MVWI x'0200' ,TT7At2 ELBERTA) LOAD TIME CONS FOR 10 #SEC 
002B72 2BC4 1235 DC A (TOSER) ERROR 002C52 4020 2EB2 0C00 1350 MVWI X*OCOO' TTTB+2 ELBERTA) LOAD TIME CONS FOR 2 SEC 
002B74 882B 3A76 3A7E 1236 CW CEDAT,RAPDAT COMPARE DATA BUFFER 002C58 4020 2F0C 0007 1351 MVWI xX'0007!,TT7C+2 ELBERTA) LOAD TIME CONS FOR 40 OSEC 
OO2B7A 1820 1237 JNE TOGA ERROR 002C5E 4020 2F8E 5000 1352 MVWI X'5000',TT7D+2 ELBERTA) LOAD TIME CONS FOR 400 MSEC 
002B7C 4020 3A76 FFFF 1238 MVWI X'*FFFF*, CEDAT SET ALL ONES AS DATA PATTERN 002C64 4C9C 1353 TBTR Ae B60f ESET TABLE INDICATOR 
002B82 6£E03 3A0E 1239 BAL CEOP1.R6 WRITE BUFFER DATA PATTERN 002c66 4020 3B28 0400 1354 TT7JE MVWI 10400", $RD+8 SETUP COUNT TO CLEAR READ BUFFER 
002B86 2BC4 1240 DC A (TOGER) ERROR 002cC6C 4020 3928 30AA 1355 MVA  WRBUF,WRDCB+14 WRITE BUFFER ADDRESS IN DCB 
002B88 6E03 39FA 1241 BAL WRAP,R6 READ DIAGNOSTIC WRAP 002C72 4020 3948 34AA 1356 MVA RDBUF,RDDCBt14 READ BUFFER ADDRESS IN DCB 
OO2B8C 2BCc4 1242 Dc A (TOGER) ERROR 002c78 8038 189A 307E 1357 MVB  TUPARA1*,TEST SET TEST NUMBER TO BE RUN 
0O02B8E 882B 3A76 3A7E 1243 CW CEDAT,RAPDAT COMPARE DATA BUFFER OO2C7E 4724 3cC4 1358 MVA YOBLK,R7 ISSUE DEVICE RESET 
002B94 1813 1244 JNE TO6A ERROR 002C82 6008 1359 SVC RESET * 
002B96 4124 0001 1245 MVWI 1,R1 INIT DATA PATTERN TO 1 002C84 402B 307E 1000 1360 TWI X*1000', TEST TEST 10? 

OO2B9A 690D 3A76 1246 TO6L MVW R4,CEDAT LOAD DATA PATTERN IN WRT DATA @D OO2C8A 6A00 2E12 1361 BON T807 YES 
0O2B9E 6E03 3A0E 1247 BAL CEOP1,R6 WRITE BUFFER DATA PATTERN 002C8E 4020 3B20 OBAA 1362 MVWI X'OBAA',$RD READ BUFFER INIT CHARACTER 
OO2BA2 2BC4 1248 DC A (TO6ER) ERROR 002C94 4020 2FFA AAAA 1363 MVWI X*AAAAt, T7AA+2 
OO2BA4 6£E03 39FA 1249 BAL WRAP,R6 READ DIAGNOSTIC WRAP QO2C9A 4C5B 1364 TBTS gre B59f SET TWO SEC INDICATOR 
OO2BA8 2BC4 1250 pc A (TO GER) ERROR 002C9C OS8FF 1365 MVBI tPF oR DATA PATTERN 'FF* 
OO2BAA 882B 3A76 3A7E 1251 CW CEDAT,RAPDAT COMPARE DATA RUFFER OO0O2C9E 4124 30AA 1366 MVA WRBUF,R1 WRITE BUFFER ADDRESS FROM MDI 
002BB0 1805 1252 INE  TO6A ERROR 002CA2 4724 0400 1367 MVWI x!0406',R7 BYTE COUNT 
goape, 3498 ae, REE EY, SHIPS, OAT PATEEES 93688 2865. 2e2c ep aQg%ah Loan HUTTE EELS ROUTINE 
N L DATA PATTFRNS TESTED 
0OO2BB6 5SOF1 1255 J TO6L LOOP OO2CAC 4020 3B20 OBFF 1370 MVWI X*OBFF',$RD READ BUFFER INIT CHARACTER 
OO2BB8 4aAu4B 1256 TO6D TBTS {R2 11) NOT DIAGNOSTIC MODE 002CB2 4020 2FFA FFFF 1371 MVWI X*FFFF!,T7AA+2 
OO2BBA 5009 1257 J o6¢c EXIT 002CB8 4C9B 1372 TBTR gRa B5 of RFSET TWO SEC INDICATOR 
OO2BBC 4AU4E 1258 TO6A TBTS (R2 14) DATA BUFFER FAILURE 0O02CBA 0855 1373 MVBI 155¢,R DATA PATTERN '55'% 
OO2BBE 5007 1259 J 066 EXIT OO2CBC 4124 30AA 1374 MVA WRBUF,R1 WRITE BUFFER ADDRESS FROM MDI 
002BCO 4AU4F 1260 TO6B TBTS (R2,15) NO INTERRUPT RECEIVED 002CCO 4724 0400 1375 MVWI xX'0406',R7 BYTE COUNT 
002BC2 5005 1261 J é EXIT 002cC4 282C 1376 FFN RO (RI) LOAD WRITE BUFFER 
002BC4 CA25 18C8 1262 TO6ER MVWZ TURESUL,R2 CLEAR RESULTS WORD 002CC6 6E03 2E2C 1377 BAL TOF gk GO TO WRITE/READ ROUTINE 
002BC8 4224 18C8 1263 MVA TORESUL, 7R2 ADDRESS OF RESULTS OO2CCA OB8AA 1378 MVBI X*AA*,RO DATA PATTERN ‘AA® 
OO2BCC 4A4D 1264 TBTS OTO CC ERROR 002CCC 4124 30AA 1379 MVA WRBUF,R1 WRITE BUFFER ADDRESS FROM NDI 
OO2BCE 8828 26FA 18CA 1265 TO6C MVW Boho. URESULt 2 CYCLE STEAL STATUS FOR FAILING OP 002cD0 4724 0400 1380 MVWI x'0406!,R7 BYTE COUNT 
OO2BD4 8828 26DA 18CC 1266 MVW SIOIN, TURESUL#4 CONDITION CODES OO02CD4 282C 1381 FFN RO shi) LOAD WRITE BUFFER 
OO2BDA 8828 26DC 18CE 1267 MVW $ISB,TURESUL+6 ISB 002CD6 6£503 2E2C 1382 BAL TO7X,R GO TO WRITE/READ ROUTINE 
OO2BEO 8828 26D6 18D0 1268 MVW OPENS TURESUL+t8 OPTION WORD peCONDITION CODES) OO2CDA 4C5C 1383 TBIS ite 860) SET TABLE INDICATOR FOR ONLY 400 BYTS 
OO0O2BE6 4020 3A7A 0001 1269 T6END MVWI 1 pDAT2 RESET DIAG NOD 002CDC 4124 30AA 1384 MVA RBOFR1 WRITE BUFFER ADDRESS FROM MDI 
OO2BEC 6E03 3A22 1270 BAL ckopp Fe OO2CEO 4724 0200 1385 MVWI x'0206',R WORD COU 
OO2BFO 2BC4 1271 pc x (POSER) + OO2CE4 4050 DEB6 1386 TT7G MVWI X'DEB6', (R1)+ LOAD WRITE BUFFER 
OO2BF2 4724 3ccC4 1272 MVA IOBLK,R RESET 002CE8 BFFD 1387 JCT fTT7G,R7 DECREMENT WORD COUNT 
OO2BF6 6008 1273 SVC RESET? * OO2CEA 6E03 2E2C 1388 BAL TO7X,R6 GO TO WRITE/READ ROUTINE 
1274 TXIT EXIT OO2CEE 4124 30AA 1389 MVA WRBUF_R1 WRITE BUFFER ADDRESS FROM MDI 
OO2BF8 6802 3D5C 1275+ B SCONX RETURN TO MDI CONTROLLER QOO2CF2 4724 0200 1390 MVWI  Xx'0206',R7 WORD COUNT 
127 G4 REE EHKH KKH KKK HR RICCI ERO III IOI OK RII IO RRR ak tok tok ke kee ok O0O2CF6 4050 0001 1391 TT7H MVWI x'tO0001', (R1)+ LOAD WRITE BUFFER 
1277 * OO2CFA BFFD 1392 JCT TT7H,R7 DECREMENT WORD COUNT 
1279 COPY 17807 01DECT76 OO02CFC 6E03 2E2C 1393 BAL TO7X,R6 GO TO WRITE/READ ROUTINE 
1280 T7807 TUIT TO7ER 002D00 4124 30AA 1394 MVA  WRBUF,R1 WRITE BUFFER ADDRESS FROM MDI 
128 14 BEKO TOR RRR IRR OR IO KK 6 FEB] 6X 002D04 4724 0200 1395 MVWI X'0206', R7 WORD COUNT 
1282+* 002D08 4050 0002 1396 TT7J MVWI x'0002', (R1)+ LOAD WRITE BUFFER 
12834+* TEST UNIT 002D0C BFFD 1397 Jct TT7I,R7 DECREMENT WORD COUNT 
1284+* OO2D0E 6E03 2E2C 1398 BAL TO7X,R6 GO TO WRITE/READ ROUTINE 
1285+* RAM AND BUFFER CONTROL DIAGNOSTIC WRAP 7/10/78 002D12 4124 30AA 1399 MVA WRBUF_R1 WRITE BUFFER ADDRESS FROM MDI 
1286+* 002D16 4724 0200 1400 MVWI x'0206',R7 WORD COUNT 
1287+* PURPOSE 002D1A 4050 0004 1401 TT7K MVWI X'OOO4!, (R1) + LOAD WRITE BUFFER 
1288+* OO2D1E BFFD 1402 JCT  TT7K,R7 DECREMENT WORD COUNT 
1289+* 002D20 6E03 2E2C 1403 BAL TO7X,R6 GO TO WRITE/READ ROUTINE 
1290+* CALLING SEQUENCE 002D24 4124 30AA 1404 MVA WRBUF R1 WRITE BUFFER ADDRESS FROM MDI 
1291+* 002D28 4724 0200 1405 MVWI X'0206',R7 WORD COUNT 
1292+* THIS ROUTINE WILL VERIFY THE DATA RETENTION OF THE FSU RAM. 002D2C 4050 0008 1406 TT7L MVWI X'0008', (R1)+ LOAD WRITE BUFFER 
1293+* PATTERNS 5555,AAAA,ETC ARE TESTED WITH VARIOUS BYTE COUNTS UP 002D30 BFFD 1407 gcT TIVL,R7 DECREMENT WORD COUNT 
1294+* TO 'O4008 002D32 6803 2E2C 1408 BAL TO7X,R6 GO TO WRITE/READ ROUTINE 
1295+* PARMI=TEST NUMBER (1,2,4,8, 10) 002D36 4124 30AA 1409 MVA WRBUF,R1 WRITE BUFFER ADDRESS FROM MDI 
1296+* 002D3A 4724 0200 1410 MVWI x'0206',R7 WORD COUNT 
1297+* PROGRAM PASSES STATUS OF ALL LINES IN FOLLOWING FORMAT: Q02D3E 4050 0010 1471 TI7M MVWI X*'0010', (R1) + LOAD WRITE BUFFER 
1298+* i TURESUL BIT 0------------- NOT USED 002D42 BFFD 1412 JCT TT7M,R7 DECREMENT WORD COUNT 
1299+* " TURESUL BIT 1------------ NOT USED 0O02D44 6803 2E2C 1413 BAL TO7X,R6 GO TO WRITE/READ ROUTINE 
1300+* 2 TURESUL BIT 2------------ NOT USED O002D48 4124 30AA 1414 MVA WRBUF,R1 WRITE BUFFER ADDRESS FROM MDI 
1301+* a TURESUL BIT 3------------ NOT USED OO2D4C 4724 0200 1415 MVWI X'0206',R7 WORD COUNT 
1302+* : 002D50 4050 0020 1416 TT7N MVWI X'0020', (R1)+ LOAD WRITE BUFFER 
1303+* . TURESUL BIT 4------------ NOT USED 002D54 BFFD 1417 JcT TTIN,R7 DECREMENT WORD COUNT 
13044+* é TURESUL BIT 5----------- NOT USED 002D56 6E03 2E2C 1418 BAL TO7X,R6 GO TO WRITE/READ ROUTINE 
1305+* . TURESUL BIT 6------------ NOT USED OO2D5A 4124 30AA 1419 MVA WRBUF,R1 WRITE BUFFER ADDRESS FROM MDI 
1306+* : TURESUL BIT 7----------- NOT USED 002D5E 4724 0200 1420 MVWI x'0206',R7 WORD COUNT 
1307+* Z 002D62 4050 0040 1421 TT7P MVWI x*0040', (R1)+ LOAD WRITE BUFFER 
1308+* : TURESUL BIT 8------------ OT USED 002D66 BFFD 1422 ICT TT7P,R7 DECREMENT WORD COUNT 
1309+* x TURESUL BIT 9----------- FRACTIONAL COUNT ERORR 002D68 6E03 2E2C 1423 BAL TO7X,R6 GO TO WRITE/READ ROUTINE 
1310+* : TURESUL BIT 10---------- TIME OUT FRROR 002D6C 4124 30AA 1424 MVA WRBUF,RI1 WRITE BUFFER ADDRESS FROM MDI 
1311+* ; TURESUL BIT 11----------- OIO CC ERROR 002D70 4724 0200 1425 MVWI X°0206',R7 WORD COUNT 
1312+* i 002D74 4050 0080 1426 TT7Q MVWI X'O080', (R1)+ LOAD WRITE BUFFER 
1313+* TURESUL BIT 12----------- TEST 1 DATA COMPARE ERROR 002D78 BFFD 1427 JCT pe DECREMENT WORD COUNT 
13144* 2 TURESUL BIT 13---------- NOT USED 002D7A 6803 2E2C 1428 BAL TO7X,R6 GO TO WRITE/READ ROUTINE 
13154+* . TURESUL BIT 14----------- NOT Ween OO2D7E 4124 30AA 1429 MVA WRBUF,R1 WRITE BUFFER ADDRESS FROM MDI 
1316+* 7 TURESUL BIT 15---------- INTERRUPT ERROR 002D82 4724 0200 1430 MVWI X'0206' R7 WORD COUNT 
1317+* : 002D86 4050 0100 1431 TT7R MVWI xX*0100!', (R1)+ LOAD WRITE BUFFER 
1318+* : TURESUL BIT 16-31 ------ CYCLE STEAL STATUS FOR FAILING OP 002D8A BFFD 1432 JcT TT7R,R7 DECREMENT WORD COUNT 
1319+* i TURESUL BIT 32-47 ------ 32-39 OI0 Cc,40-47 INT CC 002D8C 6803 2E2C 1433 BAL TO7X,R6 GO TO WRITE/READ ROUTINE 
1320+* . TURESUL BIT 48-63 ------ ose 002D90 4124 30AA 1434 MVA WRBUF,R1 WRITE BUFFER ADDRESS FROM MDI 
1321+* . TURESUL BIT 64-79 ------ OPTION WORD 3 (ERROR INDICATORS) 002D94 4724 0200 1435 MVWI X'0206',R7 WORD COUNT 
1322+* is 002D98 4050 0200 1436 TT7S MVWI X'0200', (R1)+ LOAD WRITE BUFFER 
1323+* 002D9C BFFD 1437 JcT fT7S,R7 DECREMENT WORD COUNT 
1324+* RETURN CONTROL OO2D9E 6E£03 2E2C 1438 BAL TO7X,R6 GO TO WRITE/READ ROUTINE 
1325+* OO2DA2 4124 30AA 1439 MVA WRBUF,R1 : WRITE BUFFER ADDRESS FROM MDI 
1326+* B TURTN* RETURN TO MDI SUPERVISOR OO2DA6 4724 0200 1440 MVWI X'0206' ,R7 WORD COUNT 
1327+* OO2DAA 4050 0400 1441 TT7T MVWI X*"O400!', (R1) + LOAD WRITE BUFFER 
Meee soy RVG Ee en ae ee nec ec ee etna bee GaNere OO2DAE BFFD 1442 JcT TI/T,R7 DECREMENT WORD COUNT 
OO2BFC 6FO0D 2710 1329+T7807 MVYW SAVE RETURN ADDRESS 002DBO0 6E03 2E2C 1443 BAL TO7X,R6 GO TO WRITE/READ ROUTINE 
002C00 4020 26D8 7807 1330+ MVWI Ki 4a0yt. $TUID SAVE TU ID FOR DISPLAY OO2DB4 4124 30AA 1444 MVA WRBUF,R1 WRITE BUFFER ADDRESS FROM MDI 
002C06 4424 26D2 1331+ MVA OPTN1, Ri SET UP POINTER ADRS IN R4& OO2DB8 4724 0200 1445 MVWI Xx'0206',R7 WORD COUNT 
002COA 6£E03 3CD8 1332+ BAL $CONC, CLEAR DEV DEP STG AND CONNECT I/0 BL O02DBC 4050 0800 1446 TI7U MVWI X*0800', (R1) + LOAD WRITE Bunce 
QOO2COE 3062 1333+ DC a (rOTER) ERROR ADRS FOR INVALID PREP 002DCO0 BFFD 1447 JCT TT7U,R7 DECREMENT WORD COUNT 
1334+ 002DC2 6E03 2E2C 1448 BAL T0O7X,R6 GO TO WRITE EAD. ROUTINE 
002C10 CA25 18C8 1335 MVWZ TURESUL,R2 CLEAR RESULTS WORD . 002DC6 4124 30AA 1449 MVA  WRBUF,R1 WRITE BUFFER ADDRESS FROM MDI 
002C14 CA25 18CA 1336 MVWZ TURESUL42,R2 CLEAR RESULTS WORD 2 QO2DCA 4724 0200 1450 MVWI x'0206',R7 WORD COUNT 
002C18 CA25 18CC 1337 MVWZ TURESUL44,R2 CLEAR RESULTS WORD 3 OO2DCE 4050 1000 1451 TI7V MVWI X'1000!, (R1) + LOAD WRITE BUFFER 
002C1C CA25 18CE 1338 MVWZ TURESUL+6,R2 CLEAR RESULTS WORD 4 O02DD2 BFFD 1452 JCT TTI7V,R7 DECREMENT WORD COUNT 
002C20 CA25 18D0 1339 MVWZ TURESUL+#8,R2 CLEAR RESULTS WORD 5 O0O02DD4 6E03 2E2C 1453 BAL TO7X ,R6 GO TO WRITE/READ ROUTINE 
002C24 8028 19D0 3A71 1340 MVB DEVADD,IDCB1+1 LOAD DEVICE ADDRESS IN IDCB OO2DD8 4124 30AA 1454 MVA WRBUf_R1 WRITE BUFFER ADDRESS FROM ADI 
002C2A C020 0232 1341 MVB CPUTD,RO 002DDC 4724 0200 1455 MVWI xX*0206',R7 WORD COUNT 
002C2E F025 1342 CBI 37,kR0 DETERMINE CPU TYPE 002DEO 4050 2000 1456 TT7W MVWI X*2000', (R1)+ LOAD WRITE BUFF 
002C30 180D 1343 INE 7767 JOMP ITF NOT CLINGSTONE OO2DE4 BFFD 1457 JCT TT7W,R7 DECREMENT WORD COUNT 
002C32 4020 2E88 0300 1344 MVWI X'0300°,TT7A+2 LOAD TIME CONSTANT FOR 10 SSEC OO2DE6 6E03 2E2C 1458 BAL TO7X,R6 GO TO WRITE/READ ROUTINE 
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CHANNEL/4962 P/N=68 25358 EC=374888 PAGE 07 17805 --- CHANNEL /4962 P/N=6825358 EC=374888 PASE O7A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
OO2DEA 4124 30AA 1459 MVA WRBUF,R1 WRITE BUFFER ADDRESS FROM MDI Xx? ] 
002DEE 4724 0200 1480 MVWI X'0206",R7 WORD COUNT b0are0 bead ee 27a TOE TBTR (RGGTN) HAS INTERRUPT OCCURRED? 
OO2DF2 4050 4000 1461 TT7X MVWI X'4OO0O!, (R1)+ LOAD WRITE BUFFER 002F92 1205 1575 JON 1076 YES 
OO2DF6 BFFD 1462 JCT TT7X,R7 DECREMENT WORD COUNT OO2F94 BS8FD 1576 JCT TIME OUT 4YOOKS 
OO2DF8 6£03 2E2C 1463 BAL TO7X,R6 GO TO WRITE/READ ROUTINE Q002F96 402C 18C8 0020 1577 OWI #28080, TURESUL TIME OUT ERROR 
OO2DFC 4124 30AA 1464 MVA WRBUF_R1 WRITE BUFFER ADDRESS FROM MDI O0O2F9C 50D1 1578 TOTCE J TO7C 
O0O2E00 4724 0200 1465 MVWI x'0206',R7 WORD COUNT OO2F9E 6F08 397C 1579 TO7G MVW BCNT DRT BYTE COUNT 
002E04 4050 8000 1466 TT7Y MVWI xX'8000', (R1)+ LOAD WRITE BUFFER OO2FA2 4524 30AA 1580 NVA WRBUF,RS5 WRITE DATA ADDRESS 
O02E08 BFFD 1467 sJCT TIT7Y,R7 DECREMENT WORD COUNT OO2FA6 4324 34AA 1581 MVA  RDBUF,R3 READ DATA ADDRESS 
OO2EOA 6E03 2E2C 1468 BAL TO7X,R6 GO TO WRITE/READ ROUTINE OO2FAA 2BA6 1582 CFNEN (R3), (R5) COMPARE READ DATA TO WRITE 
OO2ZEOE 6802 2F58 1469 B T7END EXIT OO2FAC 6801 303C 1583 BNE 671 COMPARE ERROR 
Q0O02E12 6E03 3BDO 1470 T807 BAL XIOCS,R6 CYCLE STEAL STATS-CABLES OUT OR OO2FBO0 4724 0400 1584 MVWI xX'O400!,R7 MAX SIZE READ BUFFER 
Q02E16 3062 1471 DC A (TO7ER) * POWER OFF OO2FB4 6FOF 397C 1585 BCNT,R7 ADJ BYTE COUNT (UNUSED BYTE CTN) 
QO02E18 4CA1 1472 TBIR ABd ER) INTERRUPT ERROR? 002FB8 1003 1586 T0O7K RESULTANT BYTE CONNT ts ERO 
OO2E1A 6A00 3062 1473 BON O7ER YES OO2FBA 2BA7 1587 CFEN R3) , (R5) COMP REMAINDER OF UIELD 
OO2E1E 402F 26FA FFFD 1474 CWI X'*FFFD* ,CSTL2 CYCLE STEAL STATUS BITS ON? O0O02FBC 6800 2F78 1588 BE AG TOO MUCH READ 
002E24 6801 3062 1475 BNE TO7ER NO_- ERROR 0O0O2FCO 6918 397E 1589 TO7K MVW JOE*,R1 FULL SECTOR BYTE COUNT-2ND cou 
Q02E28 6802 2F58 1476 B T7END EXIT OO2FC4H Y4O2E 397E 0002 1590 SWI 2,00 ADJ TABLE POINTER TO 1ST COU 
1477 * OO2FCA 6A18 397E 1591 MVW JOE* R2 FRACTIONAL SECTOR BYTE counts ist OTN 
1478 * OO2FCE 4029 397E 0002 1592 AWI 2 JOE ADJ TABLE POINTER TO 2ND COUN 
ee GOgEDs 1248 1283 sy RS aitt Peete car Bree cours 14 28H0 
0O02E2C 6E0D 303A 1481 TO7X MVW R6 TR60} SAVE RETURN ADDRESS OO2FD8 6B08 3928 1595 NVW WRDCB+14,R3 ADDRESS OF WRITE BUFFER i 
002E30 4C1C 1482 TBT (Rae TEST TABLE INDICATOR (400 BYTS ONLY) OO2FDC 7268 1596 AW 2,.R3 FRAC CTN ADDED TO ADDR OF WR BUFF 
002E32 1204 1483 JON gge° YES OO2FDE 6D08 3948 1597 MVW RDDCB+14,R5 ADDRESS OF READ BUFFER 
Oeoeae 2829 397E 3080 yioe a Vacs LOAD PARM LIST ADDRESS OO2FE2 72A8 1598 AW R2,R5 FRAC CTN ADDED TO ADDR OF RD BUFF 
002E3c 4020 3975 30A4 1486 TO7SS MVA_  TO7WW, JOE LOAD PARM LIST ADDRESS (400 BYTS ) eee 1233 Bye RARE LOD EnP Stn To Laon (Oren aoe ceky 
QOO2Z2E42 4020 3A76 OOOA 1487 TO7T MVWI x*OOO4A' cEDAT SET DIAGNOSTIC MODE 1,2 & 4 O02FE8 cC3Cc0 1604 MVB (R35) R3 LAST BYTE WRITTEN IN FRACTIONAL SEC 
O02E48 6803 3A0E 1488 BAL CEOP1,R6 . OO2FEA 2BAF 1602 SFEN R3, (R5) COMP LAST BYTE TO READ BUFFER 
QOO2ZE4C 3062 1489 DC A (TOTER) ERROR OO2FEC 6800 2F78 1603 BE TOTO TOO MUCH READ ON FRACT SECT READ OP 
OO2E4E 4020 3A7A 8000 1490 MVWI xX*8000' ,CEDAT2 TURN ON READY OO2FFO 6D08 3948 1604 MVW RDDCB+14, R5 ADDR OF RD BUFFER 
002E54 6£E03 3A22 1491 BAL CEOP2 R6 OO2FF4 72A8 1605 AW R2,R5 FRAC CTN ADDED TO ADDR OF RD BUF 
002E58 3062 1492 DC A (TOTER * OO2FF6 71E4 1606 MVW R1,R7 RESIDUAL BYTE COUNT 
OO2ESA 4C9D 1493 TBTR ie B61 CLEAR INDICATOR OO2FF8 4324 FFFF 1607 T7AA MVWI X'fPPFI, R3 LOAD "'FFFF' OR ‘AAAA® 
O0OO02E5C 8838 397E 397C 1494 MVW OE*, BCNT LOAD BYTE COUNT- 1ST COUNT OO2FFC 2BAE 1608 SFNEN R3, (R5 COMPARE FOR 'FF'* 
O00O2E62 4029 397E 0002 1495 AWI 2, Jof INCREMENT TABLE ADDRESS TO 2ND COUNT OO2FFE 6801 2F78 1609 BNE T07 TOO MUCH READ 
Q002E68 4020 391A 0001 1496 MVWI xX'0O001',WRDCB CONTROL WORD - NO CHAINING 003002 4029 397E 0002 1610 TO7M AWI 2 SR INCREMENT TABLE ADDRESS 
OO2ZE6E 4020 3920 012E 1497 MVWI xX*O12E",WRDCB+6 SETUP CYLINDER 003008 4CDD 1611 TO7P TBTV (Ra B61) TEST AND INVERT BIT 
002E74 4020 391E 0000 1498 MVWI xX'0000! ,WRDCBt4 SETUP FLAG 00300A 1208 1612 JON O7k BCH IF ON 
332845 $828 faye $992 18g VET BeunOungenyge’® «© Sune ByAze Sagng" o9304 8935 3978 $992 18g AYN 3888" acwn seep rue AEE AONE SaB Conte 
- 0 
OO2E86 4024 FFFF 1501 TT7A MVWI X'FFFFt, RO SET UP TIME OUT CONSTANT FOR 10MS 003018 6802 Sur . 1615 B 07s. READ FULL SECTOR 
QO2E8A 4C67 1502 TBTS anh pe TURN ON NO INTER MODE INDICATOR 00301C 4020 3A7A 0001 1616 TO7RR MVWI 1,CEDAT2 RESET DIAG MODE 
OO0O2E8C 6E03 3B3C 1503 BAL WRT ,R aeete 003022 6803 3A22 1617 BAL fOP2 .R6 * 
002E90 3062 1504 DC A (T0 7ER) 003026 3062 1648 DC K(TOTER * 
0O02E92 4CA3 1505 TO7A TBTR A IN) HAS” RN Artes OCCURED? 003028 4724 3cC4 1619 MVA T BLK GRY DEVICE RESET 
g98 Saye 234 1309 SOR 843 ro HAE OUT 10.3 ELAS rege EBS : 
E 0 7 CW -~1,JOE* CHECK FOR END OF BLE 
QOO2ZE9A 4020 3A7A 0001 1508 HVWI 1 cEbat2 RESET DIAG MODE er aeTi paar 3245 eee ves5 S48 Toot N ta 
OO2BA0 6£8£03 3A22 1509 BAL ChOP2,R6 003038 6802 0000 1623 TO7Y B xX RETURN ADDRESS 
QOO2EA4 3062 1510 DC A (TO 7ER) * 00303C 6918 397E 1624 TO7L MVW JOE*,R1 LOAD FULL SECTOR BYTE COUNT-2ND CTN 
OO2EA6 4724 3CC4 1511 NVA IOBLK,R RESET DEVICE 003040 402E 397E 0002 1625 SHI 2,0 ADJ TABLE POINTER-1ST COUNT 
OO2EAA 6008 1512 SVC RESET * 003046 6A18 397E 1626 HVW JOE* R2 LOAD FRACTIONAL SECT BYTE COUNT-i1ST 
QO2EAC 4C1B 1513 TBT AE B59) 2 SEC TIME OUT? 00304A 4029 397E 0004 1627 AWI 4 JOE ADJ TABLE POINTER-NEXT 1ST OR END (F) 
OO2EFAE 1004 1514 JOFF TTF NO 003050 722A 1628 SW R2,R1 SUB BYTE COUNTS 
0OO2EBO 4024 FFFF 1515 TT7B MVHI X'FFFF',RO CONSTANT FOR 7 SEC TIME OUT 003052 6800 305A 1629 BZ O7V NO FRACTION SECT -- COMP ERROR 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
1917 * BIT 04 - INDEX PULSE * PH CAL OE, OF, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 1A, 1B 
tif BEE GS = SECIS ADOEETD arn lS nga te os be ae 4 A 
2034 * LOGICAL- OE, ZC, F, D, v E, v F, w v ’ v v ’ 
1920 * BIT 07 - SPEED PULSE * D E 21 2, 23, 24, 25, 26, 27, 28, 29, 
= 2037 * LOGICAL— 15, 33, 16, 34, AT; 3 v 18, 36, 19, r) 1A, 38, B, v 
1923 * BIT 10 - RESET SEEK COMPLETE * 2c, 2 E, 2F 0 33, 34, 35, 36, 37 
1924 * BIT 11 - PLO OUT OF SYNC anne * ERESTCED. yohe ees gee Es es ae) , : 
1925 * BIT 12 - PST RD/WRT CLOCK 2040 * LOGICAL- 1C, 3A, 1D, 3B, X 
1926 * BET 13° = 2041 * PHYSICAL 38, 39, 3A, 3B, X 
1927 * BIT 14 - 2042 * 
1328 . BIT 15 - RESET DIAGNOSTIC MODE 5043 * 
1930 PSESSSEPSSELSESLSS SSS SS LS SES SL SS SPS SS SE SPL SS ELS SELES SS SS STS SS STS StS TSS TS SF SS FS Sone . CALLING SEQUENCE 
Looks 2046 + BAL CONVT,R6 
OO39FA 6E0D 26DE 1933 WRAP MVW R6,LSTIO SAVE ADDRESS OF LAST IO 204u8 * RETURN 
0O039FE 8028 19D0 3A7D 1934 MVB DEVADD,TDCBRAP+1 LOAD DEVICE ADDRESS IN IDCB 2009 * 
OO3A04 680C 3A7C 1935 IO IDCBRAP READ SENSE WORD 1 2050 * B (TT304+42) 
003A08 6F05 3A5E 1936 BNCC 7,C CHECK COND CODE 9051 * 
OO3A0C 5601 eee m BXS (R6, 2) RETURN TO CALLER 2052 = I II I III OR Ra RII IO ii RK fot $06 i ek 
2053 * 
OO3AQOE 6E0OD 26DE 1939 CEOP1 MVW R6,LSTIO SAVE ADDRESS OF LAST IO OO3AA4 6E0D 3AE4 2054 CONVT MVW TT 30442 SETUP RETURN ADDR 
003A12 8028 19D0 3A75 1940 MVB DEVADD, IDCBCE1+1 LOAD DEVICE ADDRESS IN IDCB OO3AA8 802B 396A 3989 2055 CB z#800, LGSEC+t+1 CK FOR LOG # ZERO 
ETE pees ahs Ee BNCC 7acegat enEck cone CODE ee Ua 3989 398 2098 = : 1,CB29 PeER On ad 35° eee 
003ABO 802B c C gence 
ee ee ioqg x OS te, ee ee re OOSABB 4024 0002 5085 a SETUP MULTIPLIER © OP TAAN CB29 
OO3A22 6E0OD 26DE 1945 CEOP2 MVW Io SAVE ADDRESS OF LAST I0 Et ete E821 3989 2060 MB LGSEC+1, RO LOG SECTOR # TIMES 2 
003A26 8028 19D0 3A79 1946 HVB RO drDD IDCBCE2+1 LOAD DEVICE ADDRESS IN IDCB 003ACO 7802 003C 2061 SWI 60,R0 LOG SEC TIMES 2 MINUS 60 
0O3A2C 680C 3A78 1947 IO IDCBCE? WRITE DIAG CLOCK STEP 003AC4 C028 398B 2062 MVB RO,PHYSC#+1 PHYSICAL SECTOR NUMBER 
003A30 6F05 3A5E 1948 BNCC 7,CCERR CHECK COND CODE 003AC8 500C 2063 J TT3O0U RETURN TO CALLER 
OO03A34 5601 1949 BXS (R6,2) RETURN TO CALLER OO3ACA 8028 398E 398B 2064 TT303 MVB FIVES , PHYSC#1 PHYSICAL SECTOR # 59 
1881 + SORADe OSs 0002 soe RETO HVWI 2.RO- TOAD MULTIPLIER 
003A36 6E0OD 26DE 1952 SENS1 MVW R6,LSTIO SAVE ADDRESS OF LAST I0 OO3AD6 E821 3989 2067 MB LESEC+1,R0 LOG SECTOR # TIMES 2 
0O3A3A 8028 19D0 3A71 1953 MVB DEVADD, IDCB1+1 LOAD DEVICE ADDRESS IN IDCB OO3ADA 7802 0001 2068 SWI 1,R0 SUBTRACT ONE 
Ooakdy S05 3Rgp 1988 Bice UEC Ene GubcR EONS Cope” Qg3RBs £038 3088 3355 wosou BYP BEgPHESCH notoniro ehLeR 
OO03A48 5601 1956 BXS (R6,2) RETURN TO CALLER as 5071 * 
1957 * 2072 se OR kok tok kkk kk kt eke oi ake etek ke oie ok ae ke oi ak te ea a a kak fee ote ake ake cate ote ae ke ae te ete ieee ok 
OO3A4A 6EOD 26DE 1958 SENSO MVW R6,LSTIO SAVE ADDRESS OF LAST I0 2073 * 
OO3A4E 8028 19D0 3A6D 1959 MVB DEVADD, IDCBO+1 LOAD DEVICE ADDRESS IN IDCB 2074 * SUBROUTINE 
003A54 680C 3A6C 1960 fe) IT DCBO READ SENSF WORD 1 2075 * 
003A58 6F05 3A5E 1961 BNCC 7,CCERR CHECK COND CODE 2076 * PURPOSE 
003A5C 5601 1962 BXS (R6, 2) RETURN TO CALLER 2077 * 
1963 * 2078 * LOAD WRITE SECTOR ID DATA BUFFER FROM RD SEC ID BUFFER 
OO3A5E 706E 1964 CCERR DC X"706E! COPY STATUS ANY LEVEL INTO R3 2079 * 
003A60 336A 1965 SRL 13,83 POSITION CC CODE TO BITS 13-15 2080 * CALLING SEQUENCE 
003A62 C328 26DA 1966 MVB R3,$10IN * PUT IN LOG AREA 2081 * 
003A66 68D2 0000 1967 : B (RG) * RETURN TO USER 2082 * BAL LWSID,R6 
OO3A6A 6F05 1969 IORST DC X'6FO5! RESET IO 2084 * RETURN 
OO3A6C 2205 1970 IDCBO Dc X*22058 SENSE WORD ZERO 2085 * 
OO03A6E 0000 1971 RDATAO DC Eas} DATA WORD 2086 * BXS (R6) 
003A70 2105 1972 IDCB1 DC X¥*2105' SENSE WORD ONE 2087 * 
003A72 0000 1973 RDATA DC Lp heey! 2D OBB Ha A Heo HR Oe fe ee ee ER He oH a a a Re he a ik fe a ie fe a fe i i ae ae a a fe ac fe fete ae akc ae ae ae ok a ae ee ae 
OO3A74 4005 1974 IDCBCE1 DC x*&005' CE DIAG OP1 2089 * 
003A76 0000 1975 CEDAT DC Bank SENSE DATA 2090 * 
003A78 4105 1976 IDCBCE2 DC xXx*'4105! CE DIAG OP2 OO3AE6 4724 0005 2091 LWSID MVWI BYTE COUNT 
OO3A7A 0000 1977 CEDAT2 DC heh & SENSE DA OO3AEA 4324 26F1 2092 MVA Senrp +1 R3 ADDR OF RD SECT ID DATA BUFFER 
OO3A7C 2F05 1978 IDCBRAP DC X*2F05' READ DIAG WRAP OO3AEE 4524 3990 2093 MVA D,R5 ADDR OF WR SECT ID DATA BUFFER 
OO3A7E 0000 1979 RAPDAT DC eben! SENSE DATA OO3AF2 2BA4 2094 MVFN (83) , (R5) MOV DATA FROM RD TO WR BUFFER 
000232 doce CPUID EQU. xX*'0232! CPU ID OO3AF4 5600 2095 ‘ BXS RETURN TO CALLER 
108 ae eet T78I0O 01DEC76 9098 ‘ 
1985 JOG S EGG EE AHO HE IEEE 12,0 1/7 62H EGE S HIE HES ERO ty * ea EXECUTES ALL I70 COMMANDS FROM A COMMON PLACE. 
1986 * 2101 * EACH OF THESE ENTRIES SET R7 WITH THE ADRS OF ITS PARAMETER 
1987 * SUBROUTINE 2102 * LIST AND ANY SPECIAL SWITCHES BEFORE BRANCHING TO THE 
1988 * 2103 * SUPVR CALL. 
1989 * PURPOSE 2104 * : 
1990 * 2105 * THIS SUBROUTINE WILL CHECK FOR THE FOLLOWING: 
1991 * COMPARE READ SECTOR ID DATA TO WRITE SECTOR ID DATA 3106 * i 
1992 * NORMAL AND TEST DATA. 2107 * 1. LOST INTERRUPTS BY TIMING OUT A COUNTING LOOP 
1993 * 2108 * 2. ERROR INTERRUPTS RECEIVED FROM SUPVR 
Moe A CALLING SEQUENCE 3109 * 
* IS ROUTINE HAS E FOLLOWING : 
1996 * BAL CMPRW,R6 snoetse) ee * i auc oe eh? nee 
tees . BAL CMPRT,R6 TEST) 3442 : 1 BAL SRKEW,R6 READ SECTOR ID SKEWED 
13993 : RETURN 2444 : 2 BAL SWKST,R6 WRITE SECTOR ID SKEWED (TEST) 
3002 ; BXS (R6,2) = NORMAL 2116 : 3 BAL SRWST ,R6 READ SECTOR ID SKEWED (TEST) 
* @ 
in ree PSS SL SPLESS SPSS SSL PSS LS LS SS SSS SS SPSS PS SPSS SSS SSS STS SS SS SL SSS St ES FS SS oyaG : 4 Bay SRIDS ,R6 READ SECTOR ID (TEST) 
2005 * * A WKEW,R WRI SECTOR ID SKEWED 
g33nee 434 908 3395 CRORE ATT Se ta RUEE SO°8R seco zp page (teen me mee een 
* c RITE Cc ID 
003288 4528 3998 2008 aVA tay’ ADDR OF WR SECT ID DATA (TEST ee * Z Bp weneere Peer oe 
* WRI Cc 
g33tee L43t 909s 3319 comme Beet eel aoa 03 aa green Hc a hy: ea aae nr cual 
* BAL DIAG DIAGNO Cc 
gage Sage 259" 3013 onay Sbhen ESF OGRS) aBU6 oF Tp BugaT ATA alts as. ences ape 
* AL IOc CYCLE ATU 
003A9C 68CO 0002 2044 BE 5) BCH IF WRITE ID DATA OK $128 * ‘ HEOCS @he fe pe eh eae 
003AA0 68D2 0000 2015 P Ref ® COMPARE ERROR 2130 * 10 BAL  S$SSEEK,R6 SEEK 
QO TT HH RR AH HH I He eH He KH He HH HK He HA ee ie Se He 2 he ee He a a eRe ee a FC he ee 2 oe oe ae ie Ie ek ok A Z 131 : 11 BAL SRECL,R6 RECALIBRATE 
2018 * 2133 * ‘ 
oe : SUBROUTINE 2138 ; 12 BAL SRDID,R6 READ SECTOR ID 
2021 * PURPOSE * F 
2022 53 CONVERT LOGICAL SECTOR NUMBER TO A PHYSICAL SECTOR MINUS $139 * 13 one SRD, RG BERD 
. * 
2024 * SETUP LOGICAL SECTOR # IN LOCATION 'LGSEC! Sa3G * ms Bink pre ete eles a 
2025 : PHYSICAL SECTOR # WILL BE LOADED IN LOCATION ‘*PHYSC? 2140 * 15 BAL SWRT,RG WRITE 
* 
2027 For HQGECAL SECTORE, TO BHYSECAL SECTOR# CONVERSION 9. oe oy 3142 * 
3059 * BHYSECAL x 00% O12 022 03% O4% 08% 08, 07% 08% 09% OA, OB. OC. OD. 003AF6 4020 3CC8 38FA 2183 $SSEEK NVA SKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
2145 * 
2031 * LOGICAL- 07, 25, 08, 26, 09, 27, OA, 28, OB, 29, OC, 2A, OD, 22, OO3AFE 4020 3CC8 38BA 2146 $RECL MVA CLDCB,IODCB SET OUP BLOCK FOR SVC CALL 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
003B04 5060 2947 J XxIO 2262+* 

2148 * QOO3BCC 4CAA 2263+ TBTR R4,CE RESET CS STATUS INTER ERROR INDICAT. 
003B06 4020 3CC8 38DA 2149 SRDID MVA RSDCB,IODCB SET UP BLOCK FOR SVC CALL OO3BCE 4C68 2264+ TBTS R4&,CS SET 'CYCLE STEAL STATUS!' IN PROGRESS 
0O03BO0C OBFF 2150 MVBYT xX'FF® SET BUFFEP TO FtS OO3BDO0 4020 3cC8 390A 2265+XIOCS MVA SDéB,TODCB SET UP CONTROL BLOCK FOR SVC CALL 
OO3BOE 4524 26E0 2151 MVA SCTID,P5 SETUP READ SECTOR ID BUFFER ADPS OO03BD6 4020 3CCA OOOF 2266+ MVWI X'O00F*, TOMOD SET CYCLE STEAL MODIFIER 
003B12 4724 0006 2152 MVWI 6,R7 SETUP BUFFER LENGTH OO0O3BDC 4C28 22E7+ TBT ane CS) IS CS IN PROGRESS, ERROR CONDITION 
003B16 2BAC 2153 FFN R3, Bot INIT READ SECTOR ID BUFFER OO3BDE 1213 2268+ JON To2 * YES, BYPASS SAVING T7O ADRS 
003B18 4020 38E8 26E0 2154 MVA SCTID, RSDCB+14 DATA ADDR OO3BEO 6E0OD 26DE 2269+XTO1 MVW R6,LSTIO SAVE TAR FOR RETRY IF REQUESTED 
OO03B1E 5053 2155 J XIO OO3BE4 4324 26E8 2270+ MVA DCBUF, R3 SET UP TO ADRS TO MOVE DCB TABLE 

2156 * OO3BE8 6D08 3CC8 2271+ MVW IODCB,R5 * AND THE FROM ADRS, ALONG WITH 
003B20 OBFF 2157 SRD MVBI X'FF',R3 SETRD BUFFER TO ALL FfS OO3BEC OF10 2242+ MVBI 16,R7 * THE NUMBER OF MOVES 
003B22 6D08 3948 2158 MVW RDDCB+14,R5 SET UP READ RUFFER ADRS QOO3BEE 2D64 2273+ MVFN §Rd) an) MOVE 1 STATUS WORD AND ADJUST 
003B26 4724 0100 2159 MV WI X¥'0100', R7 SET UP BUFFER LENGTH OO3BFO OBFF 2274+ MVBI 55 k CLEAR CYCLE STATUS BUFFER 
OO3B2A 2BAC 2160 FFN R3 fit CLEAR READ BUFFER OO3BF2 4524 26F8 2275+ MVA CSBUF,RS * TO ALL ONES * 
003B2C 4020 3CC8 393A 2161 SRDS MVA RpDb B,LODCB SET UP BLOCK FOR SVC CALL OO3BF6 OFT1O 2276+ MVBI 16,R7 * 
003B32 5049 2162 J XxIO OO3BF8 2BAC 2277+ FFN R3 4B) * 

2163 * OO3BFA 4020 26DA 0708 2278+ MVWI x6 08',$IOIN OVERLAY OLD CONDITION CODES 
003B34 4020 3CC8 392A 2164 SRDVY MVA VRDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 003C00 CB25 26DC 2279+ MVWZ S$ISB,R ZERO OUT OLD ISB VALUE 
O003B3A 5045 2165 J XIO 2280+* 

2166 * 003CO4 4CAI 2281+ TBTR (Re BR RESET ANY ERROR BEFORE I/0 COMMAND 
OO03B3C 4020 3CC8 391A 2167 SWRT MVA WRDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 003C06 4CA3 2282+XIO2 TBTR R4,IN CLEAR INTERRUPT RECEIVED CNTL BIT 
OO03B42 5041 2168 J XIo 003C08 4724 3CC4 2283+ MVA TOBLK 7 SET UP CONTROL BLOCK FOR SUPVR 

2169 * Q0O03COC 4CA6 2284+ TBIR R4, $45) RESET LEVEL ERROR INDICATOR 
QOO0O3B4U4 4020 3CC8 395A 2170 SRKEW MVA RKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL OO03COE 4C62 2265+ TBTS R4,XT) SET EXPECTED INTR CONTROL BIT 
QOO3B4A OBFF 2171 MVBI X'FF*t,R3 SET BUFFER TO FS 003C10 600A 2286+ svc TART CALL SUPVR FOR 1/0 COMMAND 
QOO3B4C 4524 26E0 2172 MVA SCTID,R5 SETUP READ SECTOR ID BUFFER ADRS 2257+* 
003B50 4724 0006 2173 MVWI 6,R7 SETUP BUFFER LENGTH 003C12 4caAT 2288+ TBTR R4,NT) IS AN INTR EXPECTED 
003B54 2BAC 2174 FFN R3 {Roy INIT READ SECTOR ID BUFFER 003C14 6ACO 0002 22R9+ BN R6,2) * NO, RETURN TO USER 
003B56 4020 3968 26E0 2175 MVA SChID,RKDCB+14 DATA ADDR 2290+* 
003B5C 5034 re ‘ J XIO ee THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECIION 

+ 
OO03B5E 4020 3CC8 394A 2178 SWKST MVA WKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 003C18 0ODO0O0 2293+ MVBI xX'00*,R5 SET UP WORK REG FOR "LOST INTR® 
003B64 4020 3958 3998 2179 MVA WSIDT, WKDCBt+14 DATA ADDR OO3C1A 4CA3 2294+XTO8 TBITR see th) HAS INTERRUPT BEEN RECEIVED 
OO3B6A 502D 2180 J XIOo 003C1C 1238 2295+ JON TOCK * YES, CHECK IF ALL WAS SATISFACTORY 

2181 * OO3CTE 6002 2296+ SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN 
003B6C 4020 3CC8 395A 2182 SRWST MVA RKDCB, IODCB SET UP CONTROL RLOCK FOR SVC CALL 2297+* SUPVR WILL RETURN HERE 
003B72 4020 3968 3995 2183 MVA SCTST, RKDCBt+14 DATA ADDR 003C20 7DA1 0001 2298+ AWT 1,R5 ADVANCE TIME OUT COUNT 
003B78 5026 2184 J XIO 003C24 18FA 2299+ JN xfo8 BCH IF TIME OUT NOT REACHED 

2185 * 003C26 4C61 2300+ TBTS (Re ER) SET ON ERROR CONTROL BIT 
Q0O03B7A 4020 3CC8 38DA 2186 $RIDS MVA RSDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 003C28 68D2 0000 2301+ B R6j * ER "NO INTERRUPT! 
003B80 OBFF 2187 MVBI X'FF! > R3 SET BUFFFR TO FtS 2303+ %% RR EE RRR io GR oR lito dodtok ot tok «0 3 FEB 6** 
O0OO3B82 4524 399E 2188 MVA SCTST,R5 SETUP READ SECTOR ID BUFFER ADRS 2304+* 
003B86 4724 0006 2189 MV WI 7 SETUP BUFFER LENGTH 2305+* SUBROUTINE 
OO3B8A 2BAC 2190 FFN R43 seo INTT READ SECTOR ID BUFFER 2306+* 

OO3B8C 4020 38E8 399E 2191 MVA SCT T,RSDCBt14 DATA ADDR 2307+* I/O EXECUTE ERROR HANDLING ROUTINE 
003B92 5019 2192 J XIO 23084+* 

2193 * 2309+* PURPOSE 
003B94 4020 3cCC8 394A 2194 SWKEW MVA WKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 2310+* 
0O03B9A 4020 3958 3990 2195 MVA WRSTD, WKDCBt+14 DATA ADDR 23114* THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE 
OO3BAO0 5012 2196 J XTO 2312+* PROBLEM THAT WAS FOUND WHEN THE I/O COMMAND WAS ISSUED BY THE 

2197 * 2313+* SUPERVISOR AND IT WAS NOT ACCEPTED. 
0O03BA2 4020 3CC8 38CA 2198 $WSEC MVA WSDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 2314+4+* 

O0O3BA8 4020 38D8 3990 2199 MVA WRSID, WSDCBt+14 DATA ADDR 2315+* CALLING SEQUENCE 

OO3BAE 500B 2200 J XIO 2316+* 

0O03BBO0 4020 3CC8 38CA 2201 SWSTS MVA WSDCB, IODCB SET UP CONTROI BLOCK FOR SVC CALL 2317+* SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O COMMAND 
OO3BB6 4020 38D8 3998 2202 MVA WSIDT, WSDCB+14 DATA ADDR 2318+* 

OO3BBC 5004 Ba ¥ J XIO Sonate RETURN CONTROL 

OO3BBE 4020 3CC8 38AA 2205 SDIAG MVA DGDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 2321+* B (R6) * RETURN TO USERS ERROR HANDLER 
0OO3BC4 5000 2206 J xIo 2322+* 

2207 XEQIT QZQ IH RK HK RK ER RI I RII II IIO ICI ROR IR OR ROI I fo FR kaka Ok i a ke atc ak 

220 8+ 2 RIOR IORI IORI I Gk kodak dak dot tok tk 29 JUL 7 6x 23244+* 

2209+* 23254+* CC O= DEVICE NOT ATTACHED 

2210+* SUB-ROUTINE 2326+* FOR 1= DEVICE BUSY 

2211+* 2327+* I/0 2= DEVICE BUSY AFTER RESET 

2212+* EXECUTE INPUT AND OUTPUT COMMANDS 2328+* 3= COMMAND REJECT 

2213+* 2329+* 4= INTERVENTION REQUIPED 

22144+* PURPOSE 2330+* 5= INTERFACE DATA CHECK 

2215+ 2331+* 6= CONTROLLER BUSY 

2216+* TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 23324+* 7= I/O COMMAND ACCEPTED 

2217+* THIS SUBRCUTINE WILL DO THE FOLLOWTNG FUNCTIONS: 2333+* 

2218+* 003C2C 706E 23344+XIOER DC X'*706E* COPY STATUS ANY LEVEL INTO R3 

2219+%* 1. SAVE THE ADDRESS THAT POINTS TO THE TNSTRUCTION THAT STARTED O003C2E 336A 2335+ SRL 13,R3 POSITION CC CODE TO BITS 13-15 

2220+* THE I/O COMMAND. 003C30 C328 26DA 2336+ MVB R3,S10IN * PUT IN LOG OUT AREA 

2221+* 2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS 003C34 68D2 0000 2337+ B (R6) * RETURN TO USER ERROR HANDLER 

2222+* ISSUED BY THIS SUBROUTINE. 233 D+ KH I RIOR I RII IOC tok iotitok ietototok tok tok 7 A PR 7 64% 

2223+* 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 2340+ TL 

2224+* START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 2341+#* SUB-ROUTINE IL 

2225+%* 4. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT 2342+ TL 

2226+* SINCE THE LAST EXPECTFD INTERRUPT. IF AN INTERRUPT IS FOUND, 2343+4+* ERROR INTERRUPT RUNS ON INTERRUPT LEVEL '‘$INTL* tL 
2227+* MYSTERY INTERRUPT ee CONTROL BIT IS SET. 234U4+* TL 

2228+* 5. MOVES THE ADDRESS OF THE I/O CONTROL BLOCK IN R7, SET THE 2345+* PURPOSE IL 

22294+* EXPECTED INTERRUPT CONTROL BIT AND TSSUE THE 'SVG START". 2346+* TL 

2230+4+* 6. WHEN THF SUPVR RETURNS AFTER ISSUING THF I/O COMMAND, TIMING 23474+* THIS ROUTINE WILL BE ENTERED WHEN THE SOPVR DETECTS AN ERROR TL 

2231+* STARTS TO DETERMINE A LOST INTEPROPT. 2348+* OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE IL 

2232+* 7. ACCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF IT 2349+4+* EXPECTED CODE. IL 

2233+* WAS AN ERROR OR OKAY AND EXIT OFF THE JNTERRUPT LEVEL. 23504+* TL 

2234+4+* 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. 2351+* CALLING SEQUENCE IL 

22354+* 9. CHECK TF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. 2352+* TL 

2236+* 10. CHECK JF THERE WAS AN ERROR CONDITION, TF NOT RETURN. 2353+* SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O INTERRUPT IL 

2237+* 11. CHECK TO SEE IF THE EXERCISER IS TO BE TERMINATED. 2354+* IL 

2238+* 12. CHECK IF A CYCLE STEAL OPERATION WAS IN PROGRESS THAT WAS 2355+* RETURN CONTROL TL 

2239+* ISSUED BY THIS SUBROUTINE. 2356+* IL 

2240+* 13. CHECK THE ISB BITS THAT AFE ON. IF BIT O IS ON, ISSUE A 2357+4+* Svc FXIT RETURN TO USER VIA SUPVR IL 

2241+* CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING ON, 2358+* IL 

2242+4+* COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. 2359 + I IOI IGOR III io Ii iain katakedok tot aaeT 

2243+ 2360+* TL 

22444+* CALLING SEQUENCE 2361+* CC O= CONTROLLER END ISB O= ADD STATUS IL 

2245+% 2362+* FOR 1= PROGRAM CONTROL INTERRUPT BITS 1= COMD REJECT IL 

2246+* THIS ROUTINE HAS THE FOLLOWING ENTRIES: 2363+* INTR 2= EXCEPTION INTERRUPT FOR 2= INCOR LENGTH JL 

224 74+* 23644+* 3= DEVICE END INTERRUPT INTR 3= DCB SPEC CK IL 

2248+* --> BAL XIO OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 2365+4+* Y= ATTENTION INTERRUPT 4W= STG DATA CK IL 

2249+%* --> BAL XIO1 MOD PARM PRELOADED IN ‘Tomob® 2366+* 5= ATTENTION / PROGRAM CNTL INTR 5= INV STG ADRS IL 

2250+* --> BAL XTOCS,R6 OR XEQ START CYCLE STEAL STATUS, MOD=F 2367+* 6= ATTENTION / EXCEPTION INTR 6= PROTRCT CK IL 

2251+* --> BAL XTIOCS-4,P6 AUTO CS STATUS (FOLLOWING OTAER XTO 2368+* 7J= ATTENTION / DEVICE END INTR 7= I-FACE DATA TL 

2252+* a AND DOES NOT POST INTERRUPT STATUS) 2369+4+* TL 
2253+* 003C38 706E 2370+INTER DC X'7O6E* COPY STATUS ANY LEVEL INTO R3 TL 
22544+* RETURN CONTROL 003C3A 336A 2371+ SRL 13,R3 POSITION INDICATORS IN R3 TL 
2255+* 003C3C 4424 26D2 2372+ MVA OPTN1,R4 SET UP BASE ADRS TL 
2256+* BXxsS R6, 2) RETURN TO USER NO ERROR 003C4O0 4C28 2373+ TBT te cS) IS CS IN PROGRESS TL 
2257+* OR B R6) * RETUPN AND RETPY ON ERROR 003C42 1006 2374+ JOFF NTES * NO TL 

225 B+ I OR FOO III TOR IO II IR IR OI RIO TOR I Fk kk kak akc ake ak 003C44 4C6A 2375+ TBTS (R4 3 TURN ON CYCLE STEAL INTER ERROR TL 
003BC6H CB25 3CCA 2260+ XIO MVWZ IOMOD,R3 SET MOF OF OQ FOR CYCLE STEAL OP 003C46 6FOD 2706 2376+ MVW R7,CST 8 SAVE CS FRR ISB VALUE, BITS O-7 TL 
OO3BCA 5OOA 2261+ J XIO1 CS T/0'S ARF NOT RETRIED OO3C4YA C328 2707 2377+ MVB R3,CSTL8+1 * AND THE COND CODE TL 
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2378+ Tt 
23794INTES TBD f ae XB) TEST EXPECTED ATTEN / ERROR IND TIL 
2380+ NTET BCH IF NOT EXPECTED IL 
23814 TS THIS AN "ATTENTION! INTR IL 
2382+ SB thee R1 * YES, BCH TO END INTR SEQUENCE IL 
2383+ INTET TBTS (Rape ER) SET ERROR ON I/O COMMAND CNTL BIT TL 
+ 
23854+* THE ERROR INTERRUPT USES THE SAHE IL 
2386+% ENDING SEQUENCE AS THE NORMAL INTR IL 
2 3B B&R RK HE eK he RK I eK ee hee oe ie ee he hc I ee he ae oe 3 HHH He eK ee KK KK KKK KP APRTALIL 
23894+% IL 
2390+* SOUBROUTINE IL 
23914+* IL 
3392+* OKAY INTERRUPT RUNS ON INTERRUPT LEVEL '$INTL* IL 
23934+% IL 
2394+%* PURPOSE IL 
2395+* IL 
2396+4 TO CHECK THE INTERRUPT AND CONTINUE THE TEST TL 
+ 
2398+* CALLING SEQUENCE IL 
2399+% IL 
2400+ SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED IL 
240 14% THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE IL 
2u02+* AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE IL 
240 3+* COMMON SECTION IS HANDLED HERE. TL 
24044+* IL 
2405+* RETURN CONTROL IL 
24064 IL 
240 74% SVC - EXIT RETURN TO USER VIA SUPVR IL 
+ 
oon pa a a a a aa aa Scie cg cle gr oe eae etal ate 
2470+INTOK DC X'706E! COPY STATUS ANY LEVEL INTO R3 IL 
24414 SRL 13,83 POSITION INDICATORS IN R3 IL 
2412+ MVA  OPfN1,R4 SET UP BASE ADRS TL 
2U13+INTR1 TBTS (R4,IN SET INTERRUPT RECEIVED IL 
2414+ TBT R4‘CS TS 'CS IN PROGRESS’ ON IL 
2415+ JON NTR * YES, BCH AROUND UPDATE IL 
24164 HVB  R3,$IOIN+1 SAVE INTERRUPTING CC CODE IL 
24174 MVW RT,SISB SAVE INTR STATUS AND DEV ADRS IL 
2418+INTR2 zOU * IL 
2419+* CBCL R5 CURRENT LEVEL COPIED BY DCP TL 
2420+ SLL 4,R5 POSITION INTR LEVEL AND PUT IL 
2421+ ABI 1°R5 x IN 'I' BIT IL 
2422+ CH SINTL IS THIS THE CORRECT INTR LEVEL IL 
2423+ JE INTR3 * YES, GO EXIT THIS LEVEL IL 
24244 TBTS (RU,$ SET INTR LEVEL ERROR CONTROL BIT IL 
24254 TBTS (R4/E SET ERROR ON I/O COMMAND CNTL BIT IL 
2U26+INTR3 TBTR (R4,X WAS INTERRUPT EXPECTED IL 
24274 JON NTRX * YES, EXIT OFF THIS INTR LEVEL IL 
2428+ TBTS gra MI) * NO, SET MYSTERY INTR CONTROL BIT IL 
2429+ CBI R3 ATTENTION INTERRUPT? TL 
2430+ E ThTRX YES TL 
2431+ TBTS (Ri NG) ERROR, UNEXPECTED INTERRUPT IL 
2432+INTRX SVC XI EXIT THIS LEVEL VIA SUPVR TO PGM IL 
QU ZS A HM HM HH Mee He He eK I He He HK ee He He ee he he He He He He ee He he He Oe ee ae He hee he ake ke oe ok ek eK Hk Kk KKK KOIP RR TA ** 
2435+* 
2436+* THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT 
243 7+* HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN 
2u3 ges RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. 
+ 
2440+* 
24414+XIOCK TBTR (R4,XE) WAS AN ERROR EXPECTED 
24424 BN RE, 2) * YES, EXIT THIS ROUTINE 
2443+ TBTR (R4,CS5) WAS AUTo CS IN PROGRESS 
2444+ JOFF xtocv * NO, CONTINUE CHECKING 
2445+ TBT (Ra CE) ts c& IN AN ERR CONDITION 
2446+ JOFF xro0éo * NO BCH 
2447+ B R6) * cs ERRO 
2448+XIOCO TBTS (R4,CSA TURN ON Ros STATS AVAIL FLAG 
2449+ BXS RO, 2) GO TO USER 
2450+XIOCV TBT R4,ER) WAS ERROR INTR CONTROL BIT ON 
2451+ JOFF XIOCX * NO, EXIT THIS ROUTINE 
+ 
2453+ MVB $IOIN+1,R5 GET LAST INTR CC CODE 
2454+ CBI 2,R5 IS THIS CC=2 
2455+ BNE fo) * * NO, BCH TO ERROR HANDLER 
2456+XIOCQ MVB Is GET £AST ISB DATA BYTE AND IF CS 
2457+ BN xr0c$ * AVAILABLE, GO AND GET IT 
2458+ B R6) * ERROR 
2459+XIOCX MVWZ OPTN3,R3 CLEAR OUT OPTION 3 CNTL BITS 
24604 BXS (R6, 25 RETURN TO USER VIA REG 6 
+ 
246 2+* I/O PARAMETER LIST 
2UG3+* 
24644+IOBLK DC A (DEVADD) ADRS OF DEVICE ADRS 
2405+ DC A (XTOER) ERROR ROUTINE ADRS 
2466+IODCB DC A DCB ADRS OR LEVEL & INTR 
2467+IOMOD DC A ae MODIFIER 
2468+ DC A (*-* ADRS OF LAST SVC CALL 
2469+TORSP DC A (*-* SECOND WORD OF LAST IDCB 
+* 
247 14% INTERRUPT CONTROL BLOCK FOR I/O COMMANDS 
+* 
2473+INTBL DC A (DEVADD) ADRS OF DEVICE ADRS 
24744 DC A CINTOK INTERRUPT OK RETURN ADRS 
2475+ DC A (INTER INTERRUPT ERROR ADRS 
2476+INTCC DC "0003! NTERRUPT CODE EXPECTED 
ZU TB RH KH HH HH HK HH HH KH HHH HHH He He He he He ee ee le 2 i he oe he eo he ok he ote i ok ok ie tok ke tok kk KK YT MAY 7 6X 
2479+* 
2480+* SUBROUTINE 
24814+* 
24824 CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE 
+ 
2484+* PURPOSE 
24854+% 
2UR6+* TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
244 74% PREPARE ON THE DESTRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 
24884* TO INTERRUPT. 
2489+* 
249044 CALLING SEQUENCE 
+ 
24 924s THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
+ 
24944* --> BAL $CONC,R6 CLEAR DEV DEP STG AND CONNECT I/0 BLK 
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PREPARE DEVICE ONLY, ALREADY CONNECT 


STMT SOURCE STATEMENT 
oe --> BAL SCONP,R6 
RETURN CONTROL 


+H 


249 
2496+ 
aes MAM 
2498+4+* 
24994% BXS R6, 2) RETURN TO USER VIA REG 6 IF OKAY 
2500+% OR B R64 * IF THE DEVICE COULD NOT BE CONNECTED 
+ 
DSO Da HHA He He HH He He ee he He ee ae he Re he fe he ee he he ke 2 hee oe he he afc 2 ae 2 le hc ee he 2h fe fe he ie ae he 3c he ae ae afc af ca ofc af af af ae a af ae afc ae fe ke 
2503+$CONC MVBI 6, RT NUMBER OF BYTE TO CLEAR 
2504+ MVBI OF * AND THE DATA TO USE 
2505+ MVA v3 R5 * ALONG WITH THE ADRS TO USE 
2506+ FFN (85) * 
2507+ MVWZ 3, 3 CLEAR OLD CONTROLS FOR NEW ROUTINE 
2508+ MVA  INTBL,R7 SET R7 TO CONTROL BLOCK AND 
2509+ SVC CICB * CONNECT IT TO THIS DEVICE 
25104 BN (R6) * ERROR RETURN TO USER 
+ 
2512+$CONP MVW SINTL,IODCB PUT IN LEVEL & INTR PARAMETER 
2513+ MVA TOBLK,R7 SET R7 TO CONTROL BLOCK TO PREPARE 
2514+ MVWI X10708! ,STOIN INITIALIZE CONDITION CODE STORAGE 
2515+ MVWZ $ISB * AND CLEAR OLD ISB VALUE 
2516+ MVW 3 = RG ee SET UP ADDRESS THAT STARTED LAST 1/0 
2517+ SVC PREP * AND CALL ON SUPVR 
2518+ (R6, 2) RETURN TO USER 
2570+ POT OE OL LINE RE PE yy Oe ee ELL ee Dar p ee Me tment 
2521+* 
2522+% SUBROUTINE 
+ 
2524+s DISCONNECT THE INTERRUPT CONTROL BLOCK AND LOG ERRORS 
+ 
2526+* PURPOSE 
252 7+* 
2528+ DISCONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
2529+% SET THE 'NO GOOD' CONTROL BIT, THEN LOG THE DATA THAT HAS 
2530+% BEEN FOUND TO HELP THE OPERATOR DEFINE THE ERROR CONDITION. 
+ 
2532+* CALLING SEQUENCE 
2533+* 
g534t* THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
+ 
2536+* --> B SERRS SET 'NG* BIT AND CONVERT DATA TO LOG 
2537+% ~-S 8B $CONX RETURN TO MDI SUPERVISOR TO TEST STS 
+ 
2539+* RETURN CONTROL 
2540+% 
2541+* B TURTN* RETURN TO MDI 
g042+ OR B (R6) * IF THE DEVICE COULD NOT BE CONNECTED 
+ 
2 54u4 oR He he fe ah 3H he ae ae ie i fe afc af afc afc he af ah he ae she Wk he afc He a she he He ae he kc he afc af he ae ate af ake ae ae afc oe hc fe afc afe fe ah ae she afc af ae eae of fe ae af afc af afc afc she ae ak afc ae 
2545+SERR$ MVWI xX*8000!',TUSTATUS SET ON 'NO GOOD! STATUS BIT 
2546+ MVA HEBLK, R4 GET ADRS OF CONTROL BLOCK 
2547+ SVC HTOE CONVERT HEX TO EBC VIS DCP 
2548+$PRNT MVBI 3,R5 
2549+ MVA  TOWORK,R3 SET UP BUFFER STORAGE 
2550+ MVW R3,BUFPT 
2551+ NVA  LINE1,R1 
2552+ MVBI 4,R7 
2553+ MYBI 8.R 
2554+MVBUF MVFN (23), (R1) 
2555+ MVBI 4) R 
2556+ MVBI xfuot_R2 
2557+ MVB = -R2 ete 
2558+ Jct MVBUF, 
2559+ MVBI 8,R6 
2560+ AWI 44.R14 
2561+ Jct  MVBUF,RS 
2562+ MVWI PIDMSG610,PID+t2 
2563+ MVA  FAKETU,@DCADD1 
2564+ MVA  DC2PT,ODCADD2 
2565+ OWI BIT0080,SUPSTAT 
2566+ MVA  $TOID,R3 SET UP BUFFER STORAGE 
2567+ BAL TUMSGHTR*, R7 GO TO MESSAGE WRITER 
+ 
2569+ $CONX EQU * 
2570+ MVB DEVADD,R7 GET DEVICE ADDRESS FROM MDI 
2571+ SVC RICB RELEASE INTERRUPT CONTROL BLOCK 
2372+ | B TURTN* RETURN TO MDI SUPERVISOR 
+ 
2574+BEGIN DC A (0007 NUMBER OF LINES TO PRINT 
2575+ Dc A (0008 LINE LENGTH = 8 CHAR 
2576+ DC Cfe* ABORT? 
2577+ DC A (0040) LINE LENGTH = 4O CHAR 
2578+ DC C'TUID IOIN ISB INST DEV1 DEV2 DEV3 DEV4 '* 
2579+ DC A (0040) LINE LENGTH = 40 CHAR 
2580+LINE1 DC ct ' 
2581+ pc A (0040) LINE LENGTH = 4O CHAR 
2582+ Dc C*CNTL DCB2 DCB3 DCB4Y DCB5 CHAD BYCT ADRS ! 
2583+ DC A (0040) LINE LENGTH = 40 CHAR 
2584+LINE2 DC c! 
2585+ DC A (0040) LINE LENGTH = 40 CHAR 
2586+ DC C'RSID CS-2 CS-3 CS-4 CS-5 CS-6 CS-7 CS-8 
2587+ DC A (0040) LINE LENGTH = 40 CHAR 
2588+LINE3 DC ct t 
2589+* 
2590+BUFPT DC A amps 
2591+DC2PT DC A (BEGIN) 
25924+FIXTU DC X'0101! 
2593+FAKETU DC X'0101! 
2594+PIDMSG10 EQU X*F4FO? 
2595+ BI T0080 EOU x*'00808 
+ 
259 7+ * DATA CONTROL BLOCK FOR CONVERTING HEX TO EBCDIC 
+ 
2599+HEBLK DC A (48 NUMBER OF BYTES TO CONVERT 
2600+ DC A (STOID FROM ADRS 
2601+ DC A (TOWORK) AND THE TO ADRS 
2603+ eK OK dk kok tok ok dok  dolok koko io iii ko iad ok ok kakogo dog tok tok do tok 1.15 EP] 5% 
26044+* 
2605+* SUBROUTINE 
2606+* 
2607+* SPECIAL ERROR CHECKING OF THE DCB 
2608+* 
2609+* PURPOSE 
2610+* 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
2611+* TO SET THF CONTROL BITS BEFORE ISSUEING THE T/O COMMAND, DECLARED NAME ATTRIBUTES AND REFERENCES 
2612+* TESTING TO VERIFY THAT THE FRROR DID OCCUR, AND VERIFYING 
OF as THAT THE RESIDUAL ADDRESS IS WHAT TT SHOULD BE. 995 $CKSK ADDRESS. HEX LOCATION (000029B8) IN CSECT (17805 ) LENGTH (€) 
261 dts CALLING SEQUENCE 2503 $SCONC ADDRESS. HEX LOCATION (00003CD8) IN CSECT(I7805 ) LENGTH(2) 
+ 
2617+* --> BAL  ERTST,R2 USE COMMOM ERROR TEST SUBRTN 2512 $CONP ADDRESS. HEX LOCATION (00003CFO) IN CSECT (17805 ) LENGTH (6) 
2618+* DC A(1) DISPLACEMENT FOR RESIDMAL ADRS 841 
2619+% DC A (*-*) FRROR ADDRESS 2569 $SCONX ADDRESS, HEX, LOCATION (00003D5C) IN CSECT(I7805 ) LENGTH(1) 
goz1s% RETURN CONTROI 2205 $DIAG jABBRESS. HEX LOCATION(OQOOO3BBE) IN CSECT (17805 ) LENGTH (6) 
2o2as* BXS (R2,6) RETURN TO USER VIA REG 2 2545 SERRS$ jAROBESS; ,HEX LOCATION (00003D0C) IN CSECT(I7805 ) LENGTH(6) 
2625+ KH HK OE FIR IO II ROR IO III II IORI II IR qi i kkk ak fete take ak 6 34 S$INTL ADDRESS. HEX LOCATION(O0O00270E) IN CSECT (17805 ) LENGTH (2) 
QOO3E7C 4C64 2626+ERTST TBTS (R4,XE) SET EXPECTED ERROR FOR EACH FAULT 805 821 840 859 2422 2512 
QOO3E7E 6£03 0000 2627+ BAL ¥-* RE GO XEQ T/0O COMMAND 604 SIOIN ADDRESS. HEX LOCATION (000026DA) IN CSECT (17805 L LENGTH (2) 
003E82 3D0C 2628+ DC A(SERRS) RETRY 908 929 944 950 1266 1554 1966 2278 2336 
SO3E8C 1562 ce 30% ON fergie * YES CO CRECR RE POUAL ADDRES 605 $ISB at aSRESS. HES LOCATION (000026DC IN CSECT (17805 LENGTH (2) 
Ss L RESS i 3 
003EF88 6852 0002 ZO3+ B (R2,2) * FRROR- AD Bee siee sete 931 bug 951 1267 15$5 
+ 
OO3E8C AAO8 3CC8 2633+ERTSV AW (R2) , IODCB DEVELOP DCB ERROR ADDRESS 589 $LE ABSOLUTE. HEX VALUE (00000026) 
003690 5000 2634+ NOP ‘ FOR ALL ARCH ADD (SWI 1, IODCB) 2284 2424 
yoacen ee ere Ls j * (402F (ADD OF topcB) $001 2157 $RD Pica oheeaeah Oe tetra ea) IN CSECT(I7805 ) LENGTH (2) 
003E96 8828 3CC8 3EBA 2637+ uvw  foODCB,ERTSZ SAVE DCB ADDRESS 2161 SRDS ADDRESS. HEX LOCATION(00003B2C) IN CSECT(1I7805 ) LENGTH (6) 
0O3E9C 4CA1 2638+ TBTR (Re Ef RESET ERROR BIT 1068 1077 1101 1129 
OO3E9E 6803 3BCC 2639+ BAL Toés-4,R6 REQUEST START CYCLE STEAL STAUTS 2149 SRDID ADDRESS. HEX LOCATION (00003B06) IN CSECT(I7805 ) LENGTH(6) 
OO3FA2 3D0C 2640+ DC A (SERR$) RETRY 1084 1110 
OO3EA4 4C21 2641+ TET te ER) DID ERROR CONTROL BIT GET SET 2143 $SEEK ADDRESS. HEX LOCATION(O0003AF6) IN CSECT(1I7805 ) LENGTH (6) 
OO3EA6 6400 3D0C 2642+ BON ERRS$ YES-ERROR 869 
OO3Z3EAA 882B 26F8 3EBA 2643+ CW CSTL1,ERTSZ TEST FOR CORRECT RESIDUAL ADDRS 603 $TUID ADDRESS. HEX POCKTTON (OG00 26 DEY IN CSECT(I7805 ) LENGTH(2) 
OO3EBO 1002 26444 JE ERTSX RESIDUAL ADDRESS OK 644 802 056 213 30 2566 
003EB2 6852 0002 2645+ B R2,2)* ERROR 2167 $WRT ADDRESS. HEX LOCATION (00003B3C) IN CSECT(1I7805 ) LENGTH (6) 
OO3EB6 4CA8 2646+ERTSX TBTR R4,CS) PRESET CS IN PROGRESS CNTL BIT 1503 
OO3EB8 5202 Len BXS R2,4) OK, RETURN TO CALLER 102 @DCADD1 ADDRESS. HEX LOCATION (000019B8) IN CSECT(I7805 ) LENGTH(1) 
003EBA 0000 26494ERTSZ DC A (*-*) DCB SAVE LOCATION 103 @DCADD2 ADDRESS. HEX LOCATION (000019BA) IN CSECT(I7805 ) LENGTH (1) 
000000 2650 END 2564 
39 @FIXT ABSOLUTE. HEX VALUE (00000101) 
402 417 432 447 462 477 492 507 510 
41 @GOTO ap SOLUTE: HEX VALUE (00000200) 
38 @QUES ABSOLUTE. HEX VALUE (00000100) 
45 OT U XX ABSOLUTE. HEX VALUE (00000500) 
390 405 420 435 450 465 480 495 
1826 BCNT ADDRESS. HEX LOCATION (0000397C) IN CSECT (17805 ) LENGTH (2) 
1494 1500 1529 1579 1585 1614 
2574 BEGIN aaBDRESS. HEX LOCATION (00003D66) IN CSECT(I7805 ) LENGTH (2) 
2595 BITO080 sere e une HEX VALUE (00000080) 
2590 BUFPT phBDRESS. HEX LOCATION (QOOO3E6E) IN CSECT (17805 ) LENGTH (2) 
563 B59 ABSOLUTE. HEX VALUE (0000001B) 
1364 1372 3 
564 B60 ABSOLUTE. HEX VALUE (0000001C) 
1353 1383 1482 
565 B61 gubsouty. HEX VALUE (0000001D) 
1834 CB29 oRBDRESS. HEX LOCATION (0000398C) IN CSECT (17805 ) LENGTH (2) 
1964 CCERR ADDRESS. HEX LOCATION (O0003A5E) IN CSECT(1I7805 ) LENGTH (2) 
1936 1942 1948 1955 1961 
593 CE ABSOLUTE. HEX VALUE (0000002A) 
2263 2375 2445 
1975 CEDAT ADDRESS, HEX LOCATION (00993476) IN CSECT (17805 LENGTH (2) 
843 865 1061 1227 1236 1238 1243 #1246 1251 
1487 1520 1523 
1977 CEDAT2 ADDRESS. HEX LOCATION (00003A7A) IN CSECT (17805 ) LENGTH (2) 
1269 1490 1508 1526 1541 1557 1570 1616 
1939 CEOP1 ADDRESS. HEX LOCATION(OOOO3A0E) IN CSECT (17805 LENGTH (4) 
844 866 1062 1228 1239 1247 1488 1521 4 
1945 CEOP2 ADDRESS. HEX LOCATION (0000322) IN CSECT(1I7805 ) LENGTH (4) 
1270 1491 1509 1527 1542 1558 1571 1617 
998 CHSK ADDRESS. HEX LOCATION (000029C2) IN CSECT(1I7805 ) LENGTH (2) 
673 CICB ABSOLUTE. HEX VALUE (00000014) 
1703 CLDCB ah DDRESS. HEX LOCATION (000038BA) IN CSECT(I7805 ) LENGTH (2) 
1980 CPUID ABSOLUTE. HEX VALUE (00000232) 
815 913 1341 
591 cS ABSOLUTE. HEX VALUE (00000028) 
2264 2267 2373 2414 2443 2646 
592 CSA >RRSOLUTE. HEX VALUE (00000029) 
622 CSBUF ADDRESS. HEX LOCATION(000026F8) IN CSECT (17805 ) LENGTH (1) 
912 937 955 1760 2275 
1753 CSDCB ADDRESS. HEX LOCATION (0090390a) IN CSECT(I7805 ) LENGTH (2) 
864 888 894 896 898 02 912 916 923 
933 936 937 938 954 955 2265 
623 CSTL1 ADDRESS, HEX LOCATION (000026F8) IN CSECT(I7805 ) LENGTH (2) 
624 CSTL2 ADDRESS. HEX LOCATION(000026FA) IN CSECT(I7805 ) LENGTH (2) 
855 949 1265 1474 1553 
626 CSTL4 ADDRESS. HEX LOCATION(OOOO26FE) IN CSECT(I7805 ) LENGTH (2) 
630 CSTL8 ADDRES Ss JHE X LOCATION (00002706) IN CSECT(I7805 ) LENGTH (2) 
612 DCBUF ABDRESS. HEX LOCATION (000026E8) IN CSECT(I7805 ) LENGTH (1) 
2591 DC2PT DDRESS. HEX LOCATION (00003E70) IN CSECT(I7805 ) LENGTH (2) 
105 DEVADD ADDRESS. HEX LOCATION (000019D0) IN CSECT (17805 } LENGTH (1) 
Sea sen 1340 1934 1940 1946 1953 1959 2464 
607 DEV1 ADDRESS. HEX LOCATION (O00026E0) IN CSECT(I7805 ) LENGTH (2) 
1691 DGDCB ADDRESS. HEX LOCATION(000038AA) IN CSECT(I7805 ) LENGTH (2) 
1089 1090 1116 1117 9 #1123 1133 2205 
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17805 --- CHANNEL/4962 P/N=6825358 EC=374888 17805 --- CHANNEL/4962 P/N=6825358 EC=374888 
CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
67 DUMMY ABSOLUTE. HEX VALUE (00000000) 330 
372 512 524 420 N00007 ADDRESS. HEX LOCATION (00002594) IN CSECT(I7805 ) LENGTH (2) 
513 ENTPT ADDRESS. HEX LOCATION(OOOO264F) IN CSECT(I7805 ) LENGTH(1) 333 406 
198 432 N00008 ADDRESS. HEX LOCATION(000025AE) IN CSECT(I7805 ) LENGTH (2) 
47 EQ ABSOLUTE. HEX YALOE (00000000) 336 
393 408 423 438 453 468 483 498 435 N00009 ADDRESS. HEX LOCATION (000025B2) IN CSECT(I7805 ) LENGTH (2) 
584 ER ABSOLUTE. HEX VALUE (00000021) 339 421 
849 871 882 892 906 921 927 942 1472 447 N00010 ADDRESS. HEX LOCATION(000025CC) IN CSECT(I7805 ) LENGTH (2) 
2281 2300 2383 2425 2450 2629 2638 2641 342 
2626 ERTST ADDRESS. HEX LOCATION (0000 3E7C), IN CSECT (I7805 } LENGTH (2) 450 N00011 ADDRESS. HEX LOCATION (000025D0) IN CSECT(I7805 ) LENGTH (2) 
1068 1069 1077 1078 1084 1085 1092 1093 1101 345 436 
4102. 1110 1111 #1119 1120 1129 1130 462 N00012 ADDRESS. HEX LOCATION (000025EA) IN CSECT(I7805 ) LENGTH(2) 
2633 ERTSV ADDRESS. HEX LOCATION(OOO03E8C) IN CSECT(I7805 ) LENGTH(4) 348 
26 30 465 N00013 ADDRESS. HEX LOCATION(O00025EE) IN CSECT(I7805 ) LENGTH (2) 
26 46 ERTSX ADDRESS. HEX LOCATION(00003EB6) IN CSECT(I7805 ) LENGTH(2) 3514 451 
2644 477 nN00014 ADDRESS. HEX LOCATION (00002608) IN CSECT(I7805 ) LENGTH (2) 
2649 ERTSZ ADDRESS. HEX LOCATION(OQOOO3EBA) IN CSECT(I7805 ) LENGTH(2) 354 
2637 2643 480 N00015 ADDRESS. HEX LOCATION (0000260C) IN CSECT(I7805 ) LENGTH(2) 
659 EXIT ABSOLUTE. HEX VALUE (00000006) 357 466 
2432 492 N000 16 ADDRESS. HEX LOCATION (00002626) IN CSECT(I7805 ) LENGTH (2) 
2593 FAKETU ADDRESS. HEX LOCATION(Q0003E74) IN CSECT (17805 ) LENGTH (2) 360 
2563 495 N00017 ADDRESS. HEX LOCATION (0000262A) IN CSECT(I7805 ) LENGTH(2) 
1835 FIVES ADDRESS. HEX LOCATION(0000398E) IN CSECT(I7805 ) LENGTH (2) 363 481 
2064 507 N00018 ADDRESS. HEX LOCATION (00002644) IN CSECT(I7805 ) LENGTH(2) 
536 F00005 ADDRESS. HEX LOCATION (00002668) IN CSECT(I7805 ) LENGTH(1) 366 
403 418 433 448 8 93 508 510 N00019 ADDRESS. HEX LOCATION (00002648) IN CSECT(I7805 ) LENGTH(2) 
532 F00011 ADDRESS. HEX LOCATION(00002654) IN CSECT(I7805 ) LENGTH(1) 369 496 
385 548 OPTN1 ADDRESS. HEX LOCATION (000026D2) IN CSECT(I7805 ) LENGTH(2) 
540 F00060 ADDRESS. HEX LOCATION(00002688) IN CSECT(I7805 ) LENGTH(1) 803 1057 1214 1331 2372 2 
511 571 OPTN3 ADDRESS. HEX LOCATION (000026D6) IN CSECT(1I7805 ) LENGTH (2) 
2599 HEBLK ADDRESS. HEX LOCATION (00003E76) IN CSECT(I7805 ) LENGTH(2) 952 1268 1556 2459 2507 
2546 101 PARMARA ADDRESS. HEX LOCATION (00001968) IN CSECT(I7805 ) LENGTH(1) 
679 HTOE ABSOLUTE. HEX VALUE (0000001A) 400 415 430 445 460 75 490 505 
2547 1833 PHYSC ADDRESS. HEX LOCATION(0000398A) IN CSECT(I7805 ) LENGTH(2) 
1974 IDCBCE1 ADDRESS. HEX LOCATION (00003A74) IN CSECT(I7805 ) LENGTH (2) 2062 2064 2069 
1940 1941 69 PID ADDRESS. HEX LOCATION(00001800) IN CSECT (17805 1 LENGTH (1) 
1976 IDCBCE2 ADDRESS, HEX LOCATION (00003478) IN CSECT(I7805 ) LENGTH(2) 71 72 73 74 715 76 77 78 9 
1978 "ADDRESS. 7 | | rr) rs | 
IDCBRAP ADDRESS. HEX LOCATION (00003A7C) IN CSECT(1I7805 LENGTH (2 
1934 1935 ( ( Mel 98 99 100 101 102 103 104 105 106 
1970 IDCBO ADDRESS. HEX LOCATION(OO003A6C) IN CSECT(I7805 ) LENGTH(2) 107 108 109. 110 111 112 2562 
1959 1960 2594 PIDMSG10 ABSOLUTE. HEX VALUE (O0O00F1FO0) 
1972 IDCB1 ADDRESS. HEX LOCATION (00003A70) IN CSECT(I7805 ) LENGTH (2) 2562 
1340 1953 1954 665 PREP ABSOLUTE. HEX VALUE (0000000C) 
655 IDLE ABSOLUTE. HEX VALUE (00000002) 2517 
826 1516 2296 1979 RAPDAT ADDRESS. HEX LOCATION(O0003A7E) IN CSECT(I7805 ) LENGTH(2) 
5 86 IN ABSOLUTE. HEX VALUE (90099023) 1236 1243 125 
1505 1546 1574 2294 2413 1971 RDATAO ADDRESS. HEX LOCATION(OOOO3A6E) IN CSECT(I7805 ) LENGTH (2) 
2473 INTBL ADDRESS. HEX LOCATION(00003CD0) IN CSECT (17805 ) LENGTH (2) 1232 
2508 1677 RDBUF ADDRESS. HEX LOCATION (OO0034AA) IN CSECT(I7805 ) LENGTH(1) 
2370 INTER ADDRESS. HEX LOCATION (00003C38) IN CSECT(I7805 ) LENGTH(2) 1356 1581 1678 
2475 1786 RDDCB ADDRESS. HEX LOCATION (0000393A) IN CSECT (17805 ) LENGTH (2) 
2379 INTES ADDRESS. HEX LOCATION(00003C50) IN CSECT(I7805 ) LENGTH(2) 1066 1073 1074 1075 1097 98 1099 1125 1126 
237 1127) 1134 19135 1356 1529 1530 1531 1953 1533 
2383 INTET ADDRESS. HEX LOCATION(00003C58) IN CSECT(I7805 ) LENGTH(2) 1597 1604 2158 2161 
2380 661 RESET ABSOLUTE. HEX VALUE (90000008) 
2410 INTOK ope cee HEX LOCATION (00003C5C) IN CSECT(I7805 ) LENGTH(2) 123¢ 829 957 1138 1226 1273 1359 1512 1561 
63 INTRNL ABSOLUTE. HEX VALUE (00000000) 672 RICB > ABSOLUTE. HEX VALUE (00000013) 
2432 INTRX ADDRES os nee LOCATION (00003C8C) IN CSECT(I7805 ) LENGTH(2) 662 RID ABSOLUTE HEX VALUE (00000009) 
2413 INTR1 ADDRESS. HEX LOCATION (00003C64) IN CSECT(I7805 ) LENGTH (2) 1808 RKDCB siDDRESS. WER LOCATION (00003952) IN CSECT(I7805 ) LENGTH(2) 
2418 INTR2 ADDRESS. HEX LOCATION (00003C72) IN CSECT(I7805 ) LENGTH(1) 1718 RSDCB ADDRESS. HEX LOCATION (000038DR) IN CSECT(I7805 _) LENGTH(2) 
2415 1082 1106 1107 1108 1114 149 2154 2186 
2426 INTR3 >A BBRESS. HEX LOCATION(00003C80) IN CSECT(I7805 ) LENGTH(2) 2066 RTTO1 ADDRESS. HEX LOCATION (00003AD3) IN CSECT(I7805 ) LENGTH(4) 
2464 IOBLK ADDRESS. HEX LOCATION(00003CC4) IN CSECT(I7805 _) LENGTH(2) 0 RO REGISTER. HEX YALGE (00000000) 
822 828 830 (956 1137 1225 1272 1358 1511 815 816 825 827 886 887 896 900 913 
1560 1619 2283 2513 914 1065 1143 1145 1147 1149 1151 1153 1155 
2466 TODCB ADDRESS. HEX LOCATION (00003CC8) IN CSECT(I7805 1 LENGTH (2) 1157) 1159 1341 1342 1365 1368 1373 1376 1378 
995 2143 2146 2149 2161 2164 2167 2170 2178 1381 501 1507 1515 1517 1537 1538 1573 1576 
2182 2186 2194 2198 2201 2205 2265 2271 251 2059 2060 2061 2062 2066 2067 2068 2069. 
2633 2637 0 R1 REGISTER. HEX VALUE (9000090 1) 
2467 IOMOD ADDRESS. HEX LOCATION (00003CCA) IN CSECT(I7805 ) LENGTH(2) 878 884 894 1245 1246 1253 1366 1368 1374 
833 835 837 2260 2266 1376 1379 1381 1384 1386 1389 1391 1394 1396 
840 ITST 1 ADDRESS. HEX LOCATION (00002780) IN CSECT(I7805 ) LENGTH(6) 1399 1401 1404 wH06 1409 1417 4414 %1416 1419 
823 831 834 836 838 60 1421 1424 1426 1429 1431 1434 1436 1439 1441 
8 26 ITST5 ADDRESS. HEX LOCATION(00002780) IN CSECT(I7805 ) LENGTH(2) 444 1446 1449 1451 1454 1456 1459 1461 1464 
827 1466 1589 1593 1599 1606 1624 1628 1630 2551 
37 17805 CSECT. START(00002500) LENGTH (6588) ESDID(1) 2554 2557 2560 
37 0 R2 REGISTER. HEX VALUE (90000092) 
1827 JOE ADDRESS. HEX LOCATION (00003978) I IN CSECT (17805 : LENGTH (2) 808 809 810 811 812 813 814 962 964 
1484 1486 1494 1495 1539 89 1590 1591 1592 966 968 970 972 974 976 978 980 982 
1610 1613 1614 162% 1624 1625 1626 1627 984 986 987 988 989 990 991 992 1064 
1832 LGSEC ADDRESS. HEX LOCATION(00003988) IN CSECT(1I7805 ) LENGTH(2) 1069 1078 1085 1093 1102 1111 1120 1130 1218 
2055 2057 2060 2067 1219 1220 1221 1222 1223 1256 1258 1260 1262 
2580 LINE1 ADDRESS. HEX LOCATION (00003D9E) IN CSECT(I7805 ) LENGTH(40) 1263 1264 1335 1336 1337 1338 1339 1591 1593 
2551 1596 1598 1605 1626 1628 1636 1637 1638 1639 
606 LSTIO ADDRESS. HEX LOCATION (OGQQ2EDE) I IN CSECT(I7805 ) LENGTH(2) 1640 1641 1642 2556 2557 2631 2633 2645 2647 
1933 1939 1945 1952 2516 0 R3 REGISTER. HEX VALGE (00000003) 
583 MI ABSOLUTE. HEX VALUE (00000020) 1581 1582 1587 1595 1596 1600 1601 1601 1602 
2428 1607 1608 1965 1966 2007 2011 2013 2092 2094 
2554 MVBUF ADDRESS. HEX LOCATION (00003D2A) IN CSECT(I7805 ) LENGTH(2) 2150 2153 2157 2160 2171 2174 2187 2190 2260 
2558 2561 2270 2273 2274 2277 2279 2335 2336 2371 2377 
595 NG ABSOLUTE. HEX VALUE (0000002C) 2381 2411 2416 2429 2459 2504 2506 2507 2515 
2431 2549 2550 2554 2566 
590 NI ABSOLUTE. HEX VALGE (90000027) 0 RY REGISTER. HEX VALUE £00000004) 
1224 1502 1534 803 846 849 868 °&871 879 882 889 892 
381 N00001 ADDRESS. HEX LOCATION(00002550) IN CSECT(I7805 ) LENGTH(2) 903 906 918 921 924 927 939 942 1057 
315 523 1214 1224 1331 1353 1364 1372 1383 1472 1482 
384 N00002 ADDRESS. HEX LOCATION (00002554) IN CSECT(I7805 ) LENGTH (2) 1493) 1502 1505 1513 1534 1546 1574 1611 2263 
318 2264 2267 2281 2282 2284 2285 2288 2294 2300 
390 N00003 ADDRESS. HEX LOCATION (00002560) IN CSECT(I7805 ) LENGTH(2) 2372 2373 2375 2379 2383 2412 2413 2414 2424 
321 382 2425 2426 2428 2431 2441 2443 2445 2448 2450 
402 N00004 ADDRESS. HEX LOCATION (0000257A) IN CSECT(1I7805 ) LENGTH (2) 2626 2629 2638 2641 2646 
324 0 R5 REGISTER. HEX VALUE (00000005) 
405 N00005 ADDRESS. HEX LOCATION(0000257E) IN CSECT(I7805 ) LENGTH (2) 1580 1582 1587 1597 1598 1602 1604 1605 1608 
327 391 2008 2012 2013 2093 2094 2151 2153 2158 2160 
417 N00006 ADDRESS. HEX LOCATION(00002590) IN CSECT(I7805 ) LENGTH(2) 2172 2174 2188 2190 2271 2273 2275 2277 2293 
2298 2420 2421 2422 2453 2454 2456 2505 2506 
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CHANNEL/4962 


NAME 


R6 


R7 


SCTID 
SCTST 
SENSO 
SKDCB 
START 
SUPSTAT 
TEST 
TITF 
TITtT 
TTO7 

TT 303 
TT304 
TT4Y 
TT7A 
TT7B 
TT7C 

TT 7D 
TT7E 
TT7G 

TT 7H 
TT7J 
TI7K 
TI7VL 

TI 7M 
TTIN 
TT7P 
TT7Q 

TT 7R 
TT/S 
TT7T 
TT7U 
TT7V 
TT7W 
TT7X 
TT7Y 
TUBUFF 
TULAST 
TUMSGWTR 
TUPARM1 
TURESUL 


TURTN 


P/N=6825358 


CROSS-REFERENCE LISTING 


ATTRIBUTES AND REFERENCES 


2548 2561 

REGISTER. HEX VALUE (00000006) 

806 823 831 841 BUY 847 

880 890 904 919 925 940 
1228 1230 1234 1239 1241 1247 
1369 1377 1382 1388 1393 1398 
1418 1423 1428 1433 1438 1443 
1463 1468 1470 1481 1488 1491 
1524 1527 1535 1542 1551 1558 
1937. 1939 1943 1945 1949 1952 
1967 2014 2015 2054 2095 2269 
2HU2 2447 2449 2455 2458 2460 
2553. 2558 2559 2627 2639 

REGISTER. HEX VALUE (90000007) 

645 804 822 828 830 956 
1225 1272 1329 1358 1367 1375 
1390 1392 1395 1397 1400 1402 
1412 1415 1417 1820 1422 1425 
1435 1437 1440 1442 14465 1447 
14657 1460 1462 1465 1467 1511 
1560 1579 1584 1585 1599 1606 
2010 2091 2152 2159 2173 2189 
2376 2417 2503 2508 2513 2546 

ADDRESS. HEX LOCATION (000026E0) IN 
1725 1737 1815 2011 2092 2151 

ADDRESS. HEX LOCATION(0000399E) IW 
2007 2183 2188 2191 
ADDRESS. HEX LOCATION (O0003A4A) IN 

ADDRESS. HEX LOCATION (000038FA) IN 

861 862 863 86u 875 78 
> ABSOLUTE. HEX VALUE (00000003) 
>ADDRESS. HEX LOCATION(000019C4) IN 

ADDRESS, HEX LOCATION (0000307E) IN 
1357. 1360 1518 1548 1565 
,BDDRESS. HEX LOCATION (00002EB8) IN 
,RDDRESS. HEX LOCATION (OO002EB4) IN 
ADBRESS. HEX LOCATION (00002C4C) IN 
> ADDRESS. HEX LOCATION(O0003ACA) IN 

ADDRESS. HEX LOCATION(00003AE2) IN 
2054 2063 206 
>ADDRESS. HEX LOCATION(00003A9A) IN 

ADDRESS. HEX LOCATION (00002E86) IN 
1344 1349 

ADDRESS. HEX LOCATION (00002EB0) IN 
1345 1350 
ADDRESS: EX LOCATION(00002F0A) IN 

ADDRESS. HEX LOCATION(00002F8C) IN 
1347 1352 
ADBRESS. HEX LOCATION (00002C66) IN 
,ABDRESS. HEX LOCATION(00002CE4) IN 
ADBRESS. HEX LOCATION (00002CF6) IN 
ADRESS. HEX LOCATION(00002D08) IN 
LDBRESS. HEX LOCATION(00002D1A) IN 
ADDRESS. HEX LOCATION(00002D2C) IN 
LDBRESS. HEX LOCATION (00002D3E) IN 
 RDDRESS. HEX LOCATION(00002D50) IN 
RBDRESS. HEX LOCATION (00002D62) IN 
RDDRESS. HEX LOCATION (00002D74) IN 
LDBRESS. HEX LOCATION(00002D86) IN 
RBDRESS. HEX LOCATION(00002D98) IN 
ADDRESS. HEX LOCATION (00002DAA) IN 
ADDRESS. HEX LOCATION(00002DBC) IN 
 RDBRESS. HEX LOCATION(00002DCE) IN 
RDDRESS. HEX LOCATION (00002DE0) IN 
ADDRESS. HEX LOCATION(00002DF2) IN 
 RDBRESS. HEX LOCATION(00002E04) IN 

ADDRESS. HEX LOCATION (000018C2) IN 

ADDRESS. HEX LOCATION(000018C4) IN 
> ADDRESS. HEX LOCATION (000018BA) IN 
ADDRESS. HEX LOCATION(0000189A) IN 

ADDRESS. HEX LOCATION (000018C8) IN 

808 809 810 811 812 13 

951 952 986 987 988 989 
1065 1218 1219 1220 1221 1222 
1265 1266 1267 1268 1335 1336 
1550 1553 1554 1555 1556 1568 
1637 1638 1639 1640 1641 

ADDRESS. HEX LOCATION (00002710) IN 

801 1055 1212 1329 2572 


866 869 
1058 1062 
1249 1270 
1403 1408 
1448 1453 
1503 1509 
1571 1617 
1956 1958 
2289 2301 
2510 2516 
1055 9137 
1380 1385 
1405 1407 
1427 1430 
1450 1452 
1539 1540 
1619 1630 
2272 2276 
2552 2555 
CSECT (17805 
2154 2172 
CSECT (17805 
CSECT (17805 
CS ECT (17805 
1003. 2143 


CS ECT (I7805 
CSECT (17805 
CSECT (17805 
CSECT (17805 
CSECT (17805 
CSECT (17805 
CSECT (I7805 
CSECT (17805 
CSECT (17805 
CSECT (17805 
CSECT (17805 
CSECT (17805 
CSECT (17805 
CSECT (17805 
CSECT (17805 
CSECT (17805 
CSECT (17805 
CSECT (17805 
CSECT(I7805 
CSECT (17805 
CSECT (17805 
CSECT (17805 
CS ECT (17805 
CSECT (17805 
CSECT (17805 
CSECT (17805 
CSECT (17805 
CSECT(I7805 
CSECT (17805 
CSECT (17805 
CSECT (17805 
CSECT (17805 
CSECT (17805 
CSECT (17805 
CSECT (17805 


814 949 

990 991 

1223 1262 

1337 1338 

1577 1632 
CSECT (17805 


DD ceed eed ed ed aed eed od 

SIO 10 SIE WIA) CO 
= WI OVI ND UT a OU) oot 
CO “JN Wt COLWND UNION 


DSRS aed ccd ceed cad ened ced 
UIN OuUIsS & EWN 
~~ ON IE UIND © ~I NO 


NO 
-_ 
— —— ? NDOLUIW-O- 


Ut 


wk a od od 


AWNIOW 
—_ — — =~ — — = — — ~~ ~—_ ~=——_ —_ — ——_ —_ — ~~ —_ — ——_Z —_ — — wv —_ — — ——_ — 


NOWE OS 


EC=374888 
COPYRIGiIT IBM CORP 1974 


LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 


LENGTH (1) 
LENGTH (2) 
LENGTF (6) 
LENGTH (2) 
LENGTH (6) 
LENGTH (6) 
LENGTH (4) 
LENGTH (2) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 


LENGTH (2) 


11805 =+> 


DECLARED 


74 
og) 
962 
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1579 
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CHANNEL/4962 P/N=6825358 
CROSS-REFERENCE LISTING 
NAME ATTRIBUTES AND REFERENCES 
TUSTATUS ADDRESS. HEX LOCATION (00001818) IN CSECT (17805 
TUWORK ADDRESS. HEX LOCATION (0000181A) IN CSECT(I7805 
TOA ADDRESS. HEX LOCATION (0000296C) IN CSECT(I7805 
Pes B50. B52) Beh B50" B58 beT BIO 877 
893 ; 
morc —_-BRBRESG, HBX, LOCATION (00992930), 38 CBEST (73905 
TO1ER ADDRESS. HEX, LOCATTON (00992984) IN CSECT (17805 
807 84 845 848 #881 91 905 920 
T0 1G ADDRESS. HEX LOCATION (00002896) IN CSECT (17805 
T0 1H ADDRESS. HEX LOCATION (00002876) IN CSECT(I7805 
T01d ADDRESS. HEX LOCATION (000028BE) IN CSECT (17805 
TO 1K ADDRESS. HEX LOCATION(000028E0) IN CSECT(1I7805 
TO 1L ADDRESS. HEX LOCATION (00002974) IN CSECT (17805 
TO 1M ADDRESS. HEX LOCATION (00002978) IN CSECT(I7805 
TO1N ADDRESS. HEX LOCATION (0000297C) IN CSECT (17805 
TO1P ADDRESS. HEX LOCATION (00002980) IN CSECT (17805 
T0 10 ADDRESS. HEX LOCATION (00002984) IN CSECT (17805 
TO1T ADDRESS. HEX LOCATION (00002766) IN CSECT(1I7805 
TO1T1 ADDRESS, HEX LOCATION (0000277C) IN CSECT (17805 
TO 1T2 ADDRESS. HEX LOCATION (0000276C) IN CSECT(I7805 
TO 10 ADDRESS. HEX LOCATION (0000298C) IN CSECT(I7805 
TO1V ADDRESS; HEX LOCATION (00002990) IN CSECT(17805 
TO1W ADDRESS, HEX LOCATION (00002994) IN CSECT (17805 
T0 1X ADDRESS. HEX LOCATION (00002988) IN CSECT(1I7805 
TO 1Y ADDRESS. HEX LOCATION (00002998) IN CSECT(I7805 
TO1Z ADDRESS. HEX LOCATION (00002918) IN CSECT(I7805 
TOA jABDRESS. HEX LOCATION (OQOOO2AFC) IN CSECT (17805 
TO4B jABBRESS.- HEX LOCATION(00002B00) IN CSECT(I7805 
TO4C jADDRESS. HEX LOCATION (00002B04) IN CSECT (17805 
TO4D {ABBRESS. HEX LOCATION (00002B08) IN CSECT(I7805 
TO4E ADDRESS. HEX LOCATION (00002B0C) IN CSECT(I7805 
TO4F ADDRESS. HEX LOCATION (00002B10) IN CSECT(I7805 
TO4G ADRESS. HEX LOCATION (00002B14) IN CSECT (17805 
TO4H jADDRESS. HEX LOCATION(00002B18) IN CSECT(I7805 
TOUS ADDRESS. HEX LOCATION (00002AF2) IN CSECT(I7805 
TO4K ‘ADDRESS. HEX LOCATION (00002B1¢) IN cs Ber (17805 
TOGA ADDRESS. HEX LOCATION (00002BBC) IN CSECT(I7805 
TO6C RODRESS. HEX- LOCATION (00002BCE) IN CSECT (17805 
TO6D ADDRESS. HEX LOCATION (00002BB8) IN CSECT(I7805 
TO6ER ADDRESS. HEX LOCATION (00Q02BC4) | IN CSECT (17805 
T06L "ADDRESS. HEY LOCATION (OOOO2BOR) IN CSECT (17805 
TOTA ‘ADDRESS. HEX LOCATION (00002E92) IN CSECT(I7805 
TO7B ;RDBRESS. HEX LOCATION (00002ECC) IN CSECT(I7805 
T07BB ADDRESS. HEX LOCATION (00002F80) IN CSECT (17805 
TOTC ADDRESS. HEX LOCATION (00002F 1c) IN CSECT(I7805 
TO7CD ADDRESS. HEX LOCATION(00002F40) IN CSECT(I7805 
TOTCE jAQBRESS, HEX LOCATION (00002F9C) IN CSECT (17805 
TOTE ADDRESS. HEX LOCATION (00002F90) IN CSECT(I7805 
TO7ER ADDRESS. HEX LOCATION (00003062) IN CSECT(I7805 
1333. 1471 #1473 1475 1489 1492 1508 °1510 
1525. 1528 1536 1543 1552 1559 1572 1618 
TO7G ADDRESS. HEX LOCATION (00002F9E) IN CSECT(I7805 
TOTd ADDRESS. HEX LOCATION (00002F34) IN CSECT(I7805 
TOTTI jADDRESS. HEX LOCATION(00002F2C) IN CSECT (17805 
TO7K ;ABDRESS. HEX LOCATION (00002FCO) IN CSECT(I7805 
TOTL jABBRESS. HEX LOCATION (0000303C) IN CSECT(I7805 
TO7M ADDRESS. HEX LOCATION (00003002) IN CSECT (17805 
TOTP ADDRESS. HEX LOCATION (00003008) IN CSECT(1I7805 
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LENGTH (1) 
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LENGTH (4) 
LENGTH (4) 
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LENGTH (2) 
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1568 TO7Q 
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1529 TO7S 
1486 TO7SS 
1487 TO7T 
1632 TO7V 
1653 TO7W 
1671 TOTWW 
1481 TO7X 


16 23 TO7Y 


1565 TO7Z 
953 TIEND 
1269 T6END 
1607 TVAA 
1557 T7END 
801 T7801 
1055 T7804 
1212 T7806 
1329 T7807 
1470 T807 
1775 VRDCE 
1797 WKDCB 
1933 WRAP 
1675 WRBUF 
1764 WRDCB 
1836 WRSID 
1708 WSDCB 
1840 WSIDT 
587 XE 
585 XT 
2260 XIO 
24414 XTOCK 
2448 XIOCO 
2265 XTOCS 
2450 XIOCV 
2459 XIOCX 
2334 XIOER 
2269 XIO1 
2282 XIO2 
2294 XI08 
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1454 1459 
ADDRESS. 
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HEX LOCATION (00002EE4) 
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HEX LOCATION (000029D0) 
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1497 1498 1499 150 

HEX LOCATION (00003990) 
2012. 2093 2195 219 

HEX LOCATION (000038CA) 
2201 2202 

HEX LOCATION (00003998) 

HEX VALUE (00000024) 
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HEX LOCATION (00003BC6) 
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HEX LOCATION (00003CaA4) 
HEX LOCATION (00003CBE) 
HEX LOCATION (00003C2C) 
HEX LOCATION (00003BE0) 
HEX LOCATION (00003C06) 
HEX LOCATION (00003C 12) 
HEX LOCATION (0000396A) 
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LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 


LENGTH (4) 
LENGTH (6) 
LENGTH (2) 
LENGTH (6) 
LENGTH (4) 
LENGTH (6) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (2) 
LENGTH (2} 
LENGTH (4) 
LENGTH (1) 


LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


LENGTH (4) 


LENGTH (2) 
LENGTH (2) 
LENGTH (6) 


LENGTH (2) 
LENGTH (4) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
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